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IDENTIFICATION 

PRODUCT CODE: AC T8/9A-HC 

PRODUCT TITLE: C/UCAO U CM B PDP-11 DlAiiNUSl IC 

PRODUCT DATFs JANUARY 1984 

DEPARTMENT: CSS, MUNICH 

AUTHOR: J, HOLLER 



COPrPIGHT (C) FIRST, 1^79,1984 

DIGITAL EQUIPMENT CORPORATION. MAiNARD, MASSACHUSETTS 01 /M 
THIS SOFTWARE IS FURNISHED UNOFR A LICENSE AND MAt BF USED 
AND COPIED ONLY IN ACCORDANCE WITH THE TERMS 0*-" r .UCH I Id NSF 
AND WITH THE INCLUSION OF THF ABOVE COPtRIG T NOTICE. THIS 
SOFTWARE, OR ANY OTHER COPIES THEREOF. MAi NOT Of PROVIDED OH 
OTHERWISE HADE AVAILABLE TO ANY OTHER PERSON. NO THif M 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSURtD, 
THE INFORMATION IN THIS SOFTWARE I.i SUBJECT »0 CHANCE WITHLUl 
NOTICE ANO SHOU D NOT BE CONSTRUED AS A COMMITMENT H* MM TAJ 
EQUIPMENT CORPORATION, 

DIGITAL ASSUMES NO RE SPONSION ITr f OR THE U'.l OP RE I IAB II I T i 
OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED Ut DIGITAL 



TAB! t 0* CONTENTS 



1.0 AH S TRACT 

k \0 REQUIREMENTS 

.-\1 PREl IMINARY DIAGNOSTICS 

3.0 LOADING PROCEDURE 

3.1 METHOD 

4.0 STARTING PROCEDURE 

S,C OPERATING PROCEDURES 

J*. I SWITCH SETTINGS 

S,r^ PRINTOUTS 

t>.0 ERRORS 

h. 1 ERROR FORMAT 

6.c? FRRCR DESCRIPTION 

7.0 EXECUTION TIME 

8.0 MISCELLANEOUS 

8.1 RESTRICTIONS 

( *,0 PROGRAM DESCRIPTION 

10.0 DIAGNOSTIC MONITOR DESCRIPTION 

11. LISTING 



CI 

SEQ 2 



D 1 



1.0 A R S T R A C T 



THIS PROGRAM IS DESIGNED TO TEST AND bXf-RCISf 
AN IECll B INTERFACE TOGETHER WITH AN IBCU A 
INTERFACE. 



.\0 REQUIREMENTS 



PDPll WITH AT LEAST flK MEMORi , CONSOL l TERMINAL 

WITH STANDARD ADDRESSES, INTERRUPT LEVEL AND 

PRIORITY. 

IECll -A INTERFACE 

IECll B INTERFACE 

.ESTCABLE (BC08S-XX) 



<M PRELIMINARY DIAGNOSTICS 

ALL DIAGNOSTIC PROGRAMS FOR THE IECll A MUST RUN 

SUCCESSFUL. 



5,0 lUADINu P R C E D V W t 



S.l METHOD 

SEE DIAGNOSTIC MONITOR DESCRIPTION 



4.0 STARTING P R C I. [) U R I 

GEE DIAGNOSTIC MONITOR DESCRIPTION 



S.O P t- R A T I N I. P R C t D U R I 

l J, L '.WITCH SITTING'. 

SEE DIAGNOSTIC MONITOR DESCRIPTION 



LI 

SEQ 4 



PRINTOUTS 

AF TER TH' IDENTIFICATION PRINTOUT KOI LOW A FEW 

QUESTIONS FOR THE ADDRESSES AND THE VECTORS. 

IK THE INTERFACE HAS THE DEFAULT AOORt SSES 

AND VECTORS, ENTER JUST A «CR* AND THROUGH ALL THE 

TESTS THESE VALUES Will BE USED. A TyPICAI, ERROR 

FREt PASS WILL BE EXECUTED IN THE FOLLOWING ORDER; 

(NOTE THAT USER INPUT IS UNDERLINED) 



CDM V3.0 - -CSS DIAGNOSTIC MONITOR 



HIGHfcSl MEMORY ADDRESS ;XXXXXXX 

IEC11 TEST IN CONNE.CTION 

WITH AN IECll-A INTERFACE 

AC T879A MC 

CSS MUNICH MARCH 1979 



ENTER FIRST REGISTER ADDRESS OF IECll-A 
(DEFAU T IS 160010) 

CDM><CR> 

ENTER VECTOR ADDRESS OE IECll-A 

CDEF'AU T IS <>70) 

CMDwCR> 

ENTER 1EC-BU:. ADDRESS OF IECll-A 
(DEFAULT IS 35) 

CMD><CR-» 

ENTER FIRST REGISTER ADDRESS OF 1EC11-B 

(DEF Am T IS J.600P0) 

CDM><CR> 

4 4 

ENTER VECTOR ADDRESS OF IECll-A 
CDEF'AU T IS ?74) 

CMD><CR> 

ENTER IEC PUS ADDRESS OF lECil-B 

U)t F AU T IS 36) 

CMO><CR> 



NF XI !F ST TO RUN ? 



HI 

SEU 5 



TtsT i; register STATIC TEST 

END OK TEST 

TEST :?. TALKER AND LISTENER FUNCTION TEST 

END Of TEST 

TEST 3; GENERAL INTERRUPT AND DMA FUNCTION TEST 

END OK TEST 

TEST 4: DMA ■ TRANSFER FROM R TO A CB IS TALKER) 

END OF TEST 

TEST S; DMA -TRANSFER FROM A TO B CB IS LISTENER) 

*ND OF TEST 

TEST 6: MATCH CHARACTER REGISTER TEST CB IS LISTENER) 

END OF TEST 

TEST 7 : SERIAL POLL PROCEDURE TEST 

END OF TEST 

1ST I. REGISTER STATIC TEST 
<CTRL. C> 

■ - ■= a a ■* 

COM>ABO<CR> 

U\ W TEST TO RUN ? 
LDM" 

I 'it ABOVE PRINTOUT IS A TOPICAL EXAMPLE FOR AN ERROR FRtE RUN 



bi 

SEQ 6 



*.,0 ERRORS 

t MtMIMM 

b,l ERROR F R M A T 

THt ERROR FORMAT IS DESCRIBED IN SECTION 10, 
DIAGNOSTIC MONITOR. 

b.^ ERROR DESCRIPTION 

SFF PROGRAM DESCRIPTION (FLOWCHARTS) 

ERRORS FROM "REGTST" SUBROUTINE : MAY APPEAR IN TEST 1 
ERROR <?53 
ERROR 254 



ERROR 255 



URITE AND RcAD ERROR IN A REGISTER 

AFTER LOADING THE R/W BITS WITH A RANDOM PATTERN 

WRITE AND READ ERROR IN A REGISTER 

AFTER LOADING ALL THE R/W BITS WITH 

WRITE AND READ ERROR IN A REGISTER 

AFTER LOADING ALL THE R/W BITS WITH 1 



EXECUTION TIME 

THE EXECUTION TIME OF ONE SEQUENTIAL PASS DEPENDS ON 

THE CONSOLE TERMINAL CPAUO RATF ) AND THE TlP OF PROCESSOR. 

:H\ ) TEST 6 TAKES MORE THAN IC SECONDS AFTER IDENTIFICATION, 

SEE PROGRAM DESCRIPTION 



A,0 MlbCtllANtOUS 



R ( liTRICTIUNii 

OUN' T USE ADDRESS "0' K)R II C BUS ADDRESS 
UN TEST CONFIGURATION !! 

MAKE SUM THAI AIL SWITCHES ON ItCil A AND ItCll H 

ARE SET CORRECTLY 



H 1 

SEU 7 



9.0 PROGRAM DESCRIPTION 

• t • MMMIIMHt MMMUM ttMtHIIH 

THE IHC11-D TEST PROGRAM IS M SET 0> 

St'VEN INDEPENDENT ROUTINES THAT CAN BE CALLED 

FROM A SELECT ROUTINE. 

WHEN THE QUESTION OCCURS. 

NEXT TEST TO RUN ? 

ANYONE OF THE SEVEN TESTS CAN BE SELECTED, 

U <CR> LS PRESSED, THEN ALL TESTS WILL 

RUN SEQUENTIALLY . 

All. TESTS CAN BE ABORTED BY PRESSING <CTRL C> 

AND TYPING "ABO" 

AN> SINGLE SELECTED TEST RUNS IN AN ENDLESS LOOP 
WITH NO PRINTOUT CF.G. END OF TEST). 

TO RUN A TEST ERROR FREE .ALL PREVIOUS TESTS MUST PROVE 
SUCCESSFULL ■! 

THE FOLLOWING SECTION CONTAINS THE FLOWCHARTS FOR AIL TESTS. 

ALL ERROR NUMBERS WHICH ARE MARKED WITH A "+" APPEAR AFTER 
A PROGRAMMED DELAY. 

SB-ERROR 3S ; bB STANDS f- OR AN ADDITIONAL. PRINTOUT Bfc> ORE 
ERROR NUMBER PRINT OF THE FORM : 

CONTENTS SHOULD BL ; 000026 BUT WAS : OOOCVS 

I TEST XX 1 ; THESfc I AtJtLS REFER TO LAUELS IN THE PROGRAM 

LISTING. 



II 

SEQ 6 

** + **** + ** TEST 1: REGISTER STATIC TEST 

THh MASTER CLEAR JUNCTION Of 0* II CU A AND IECliB 
IS TESTED, 

ALL READ/WRITE BITS IN IEC11 B ARE CHI CKfcl) WITH 
ALTERNATE PATTERN (EXCEPT BIT IN CSR,) 

( TE5T1 ] 

i 

i 

: IDENTin TEST : 

( REPl 1 

i 

i 
: MASTER CLEAR : 



St T R\W BITS 
IN IEC11-B 



: MASTER CI EAR : 



/ - - - - - - \ 

* CIR - ? >-N0 SB -ERROR 1 

\ • / 

i 

i 

I 
S 
j 

/ - . . I .. \ 

SMR -- ? >~N0 SU ERROR £ 

\ / 

j 

1 

e 

s 
» 

/ . . ..!.... - N 
< *1>R i >-NU liU ERROR 5 



Jl 



SEQ 9 



C5R ■• 



BCR 



/ ■■ - 

BAR ■- 
\ 



ncR 



\~ 



R\W BI 

Ht "RF 
OPTION 



< Tt ST *«H 
\ . . . 



\ 



? 



>-NO SB-ERROR 4 



\ 



? 



•>-NO SB-fcRROR 5 



/ 



-> 

/ 



>-NO SB-ERROR 6 



\ 



? 



>-NO SB-ERROR 7 



- -/ 



TF5T 
TST" 



ERRORS l ,c >3 , <?S4 , <?5b 
MAY APPEAR 



PEAT ? > NO 
/ 



•WRITE 1ND 0» !t'.! 
UUTO TEST SELECT ROUTINE 



(jOTO REPi 



Kl 

SEQ 10 
**+*+*+**+ TEST ? : TALKER AND LISTENER FUNCTION TEST 





I TEST,? 
i 


1 




J 


IDKNTIFK 1 


TEST 


; 




1 

I REK> 
j 


1 




: 


MASTER CLEAR 
i 


: 


•' 


; 

SET SACS 
SET SIC 




: 


/ - 
V 


i 
SIAS RESET ? 


A 

>-N0 

_ / 


• 








> 

E 

S 

i 






/ 
< 
\ 


CACS SET 


? 


\ 

>-N0 


i 








t 
E 

S 

i 






: 


SET IEC11 

TO TADS 


-B 


, 


/ 

< 


i 
i 

DATA ACC 


set 


- \ 

? >-N0 


\ 


» 


. . . . 


- / 



ERR0R*6 



ERR0R*9 



■EHROR*10 



LI 



5EQ 11 



GOTO STANDBY 
STATE. SET G 
TO TACS 



/STATE CHGE, NT \ 

AND TACS SET >-NO 
\ IN CSR ? / 



SB-ERROR 11 



E 

S 
i 

I LABI 1 



CLEAR STATh 
CHGE IN CSR 



i 



/ STATE CHGE \ 
< AND INT RESET > -NO 

\ IN C5R ? / 



SB-ERROR 12 



j 

Y 

E 

S 
» 

[ LA112 



LEAVE STANDBY 
STATE 



/S^ATE CHGE, INT \ 
< SET , TACS RtSET >«NU- 
\ IN CSR ? / 



•SB-ERKUR 15 



Ml 



SEQ 12 





t 


E 
S 

i 




[ LAB3 ] 
i 




Cl.R STATF CHGE : 
SF.T A INTO TAGS; 

GOTO STANDBY : 


< 
> 


i 

' - - - '• \ 

TACS RESET 
v IN CSR ? / 


Y 
E 

S 


t LAB4 ] 

1 




LEAVE STANDBY : 

SET B TO TAOS : 

SET B TO I ADS : 

, GOTO STANDBY ; 

i 


< 


• 

'STATE CHGE , INT \ 

AND LACS SET 
\ IN CSR ? / 


i 

Y 
E 
S 


t LAB5 j 
i 


; CL.R S1AIE CHGE : 




i 



>~NO SB-ERROR 14 



NO 



SB -ERROR IS 



Nl 



SEQ 13 



/ STATE CHGh \ 
< AND INT RESET > -NO 
\ IN CSR ? / 



SB-ERROR 16 



C LAB6 1 



UAVE STANDBY 



/STATE CHGE.INT \ 
< SET, LACS RESET >-NO 
\ IN CSR ? / 



SB-ERRCR 17 



f LAB 7 ] 



CLrt STATE CH( [ 
AND INT IN CSR 
UNLI C TEN 



TCP 



1-D 



GOTO STANDBY 



/ \ 

< IS I ACS RF.SFT ? > NO LRRUR 10 



\ 



/ 



[ LAB6 ] 



p > 

IX . 



SEQ 14 



I EAVF 
SET B 

SET B 
GOTO 


STANDBY 
TO LADS 
TO TADS 
STANDBY 




t 
• 





STATfc CHGE.INT \ 
AND TACS SET >-NO 
. IN CSR ? / 



SB -ERROR 19 



t LAB9 ] 

i 

/ - ■ - \ 

< TEST REPEAT ? >-NO 

\ / 

i 

\ 
S 



WRITE "END OF TEST" 
GOTO TEST SELECT ROUTINE 



GOTO REP2 



4444444444 



TEST 3 : GENERAL INTERRUPT ANO DMA FUNCTION TEST 

THE. FACTION Of" ALL BITS WHICH CAN AFFECT "INT" IN CSR 

IS CHECKED. 

THOSE BITS ARE; "STATE CHGE " , "NEX " . "DC CVFL'V'fcND' IN CSR 

ALSO THE BUS REQUEST LEVEL Of* ItCU-B IS IDENTIFIED, 

IF THE TESTS RUN SEQUENTIALLY, 



( TEST3 ) 
* 



; IDENTIKii TEST s 



I RLP5 ] 
i 



CrJ 



SEU 15 



MASTER CLEAR 

SET "A TO CACS 
SET A TO TACS 
SET P. TO I ACS 

GOTO STANDBY 



(STCHGE ] 



ENABU INTERR.: 



i 



\ 



< INTERRUPT ? 
\ / 

E 

S 

i 

/ - \ 

< INT Els© RESET ? >-NO 
\ - / 

• 

Y 

E 
S 



>-NO ERROR + ^O 



ERROR 21 



i 



\ 



/ INTERRUPT 
< CAUSED BY >-NO 

\ STATE CHGE ? / 



SB -ERROR 22 



(NEXBIT ] 



/--■-■ - \ 

< 12H K MEMORY ? >-NQ 
\* / 

f 



•GOTO NEXL 



Dc! 



SEU 16 



GET NEX ADDRESS 

I ROM I\0 PAGE 

ANO PUT IT TO 
BAR 

{ ENABLE DMA : 
: AND INTERRUPT i 

t 

i BYTE TO IOR : 

i 

/ - - \ 

< DATA ACCEPTED ? >-NO 
\ / 

; 

E 

S 

» 

/ - - - \ 

< INTERRUPT ? >-NO 

\ / 

; 

E 

S 
i 



ERR0R*23 



ERROR*24 



/ INTERRUPT 

CAUSED BY 

\ NEX ? 



\ 



>«NO SB -ERROR <?S 



/ 



j 

t 
E 

S 

t 

( NEX1 ] 



/ 400000 IS \ 

< NON-FXISTANT >-N0 
\ MEMORY ? / 



GOTO NEXi? 



\L'd 



SEQ 17 



ENABLE DMA 
AND INTERRUPT 
ON 400000 



: RYTF TO TOR : 
i 

<■ DATA ACCEPTED ? > -NO 

\ / 

i 

Y 

E 

S 
i 

/ ■■ - ' \ 

* INTERRUPT ? >-N0 

\ / 

\ 

E 

S 

i 



•ERROR + 26 



/ 



INTERRUPT 
CAUSED B> 
NEX ? 

i 

Y 
I 

S 

i 

I NEX2 ] 



ERR0R+27 



\ 



/ 



>-N0 SB-ERROR ?& 



/ c?00000 lb \ 
< NON-EXIBTANT >-N0 
\ MEMORY ? / 



■GOTO NEX5 



tNABL E DMA 
AND INTbRRUPT 
ON «>00000 






SEQ 18 



BYTE TO 10R 



/ \ 

- DAIA ACCEPTED ? >-NO 
\ / 

E 



ERROR+29 



i 



INTERRUPT ? >-NO 
\ / 



ERROR+30 



i 

E 

5 
i 

INTERRUPT 
CAUSED BY 
NfX ? 



\ 



>-NO -SB-ERROR 31 



i 

Y 
E 

S 

♦ 

{ NEX3 ) 
i 

/ 100000 IS \ 

< NON EXISTANT > -NO 
\ MEMORY ? / 



-GOTO NEX4 



ENABLE DMA 
AND INTERRUPT 
ON 100000 



I BYTe TO 10R 



Gel 



1SEQ 19 



/ 

< DATA ACCEPTED 
\ 


\ 
? >-N0 
• / 


F 

S 

i 






/ 




- \ 


v INTERRUPT 


? 


>-N0 


i 






> 

e 

5 







ERRORS 



ERR0R*33 



INTERRUPT \ 
CAUSED BY 
NEX ? / 



>-N0 SB-ERROR 34 



E 
S 

i 

[ NEX4 ] 
i 

/ 40000 IS \ 

< NON-F.XISTANT >-N0 
\ MEMORY ? / 



GOTO BCOVFl. 



ENABLE DMA 
AND INTERRUPT 
ON 40000 



: BYTE TO IOR 



/ \ 

< DAI A ACCEPTED ? >-N0 
\- / 



ERR0R+3S 



/ 



< INTF.RRUPT ? 
\ 

i 

Y 

E 

S 
i 



-\ 



>. N0 ERROR+36 



/ 



INTF.RRUPT 
CAUSED BY 
NFX ? 



(BCOVKL ] 



\ 



/ 



>-NO SB-ERROR 37 



ENABLE DMA 
AND INTERRUPT 
FOR BC OVFl. 

BYTE TO IOR 
i 



/ - - - \ 

< DATA ACCEPTED ? > -NO 
\ / 

i 



-fc.RR0R*3tt 



/ 



< INTERRUPT ? 

i 
i 
V 

\> 

i 



\ 



--/ 



*-NO- 



-ERROR+39 



SEQ 20 



IZ 



SEQ 21 



INTERRUPT \ 
CAUSED BY 
RCOVFL ? / 



>-NO SB -ERROR 40 



IENDBIT ] 



ENABLE DMA 
AND INTERRUPT 

FOR END BY M^R 

t 

: BYTE TO I OR 

t 



/ \ 

< DATA ACCEPTED ? >-N0 
\ - / 

i 

Y 

r 

s 
i 

/ ' \ 

< INTERRUPT ? >-N0 
N / 



ERR0R*41 



■ERROR *42 



/ INTERRUPT 

< CAUSED BY 

\ END V 



S 



>- N0 SB-ERROR 43 



/ - - \ 

< U i",T RfPJ-AT ? v-Y£S 
\ -/ 



GOTO REPS 



J2 



SEQ 22 



St TUP 


FOR BUS 


REGUfcST LEVEL 


CHECK 


BY 


STATE 


CHGE 



/ INTERRUPT ON \ 

ANY BUS REQUEST > -NO 
\ LEVEL. ? / 



ERR0R*44 



PRINT LEVEL 

WRITE "END OF 

TEST" AND GO 
TO TEST SELECT 
ROUTINE 



********** 



TEST 4 ; DMA-TRANSFER FROM B TO A (B IS TALKER) 



I TEST4 ] 
j 

i 
j IDENTIFY TEST s 



/ \ 

< Tt ST REPEAT ? >-NU< 
\ - / 



■USt MAXIMAL atTt COUNT 
GOTO REP4 



\<2 



SEQ 23 



i 

E 

S 

[ BCIN4 ] 
i 



ASK FOR 
BYTE COUNT 



( REP4 ] 



PREPARE 
BUfFfc.R A AND H 



MASTER CLEAR 

SET A TO CACS 
SE1 A TC LACS 
SET B TO TACS 
GOTO STANDBY 



PREPARE BAR AND 
BCR, ENABLE DMA 
AND INTERRUPT 



/ - - - - \ 

< DATA ACCEPTED ? >-NO 
\ / 

Y 

E 
c. 



ERR0R+45 



{ DMA4 ] 
i 



/ 



< INTERRUPT ? 
\ - 

N 





\ 



>~YES 



/ 



GOTO INTU4 



L? 



C 



SEQ 24 



/ \ 

—N0-< DATA ACCEPTED ? > 
\ / 

Y 



: IOR HIGH BYTE : 
: TO BUFFER A : 



GOTO DMA4 

[ INTB4 ] 
i 



i PREPARE DELAY t 



[ LAS 14 ] 



/ - \ 

N0-< DATA ACCEPTED ? > 
\ - - - - / 

1 

E 



/ 



< DELAY DONE ? 
\ - 

Y 



\ 



>-NO- GOTO LAST4 



/ 



/ - - S 

< TO LESS BYTES >-YES 

\ TRANSFERRED ? / 



ERR0R*46 



» 

N 

i 

/ ' -- \ 

< TO MANY BYTES >-Y£S 
\ TRANSFERRED ? / 



•ERR0R*47 



t 
N 


i 

INTERRUPT 
CAUSED BY 
BCOVFL ? 



t CMP4 ] 



m 



SEU 25 



\ 



>-NO SB-ERROR 48 



/ 



BYTE COMPARE 
OK BUFFER A 
AND BUFFER B 



j 

/-- - - \ 

< BYTE A EQUAL 
\ TO BYTE B ? / 



>-NO SB-ERROR 49 



Y 
E 
S 

/ - ■ \ 

< ALL COMPARED ? >-NU --GOTO CMP4 

\ / 

i 

Y 
t 

s 

I 

/ — \ 

< TF ST REPEAT ? > NO 

\ / 

i 

Y 

E 



URITE "END Of TfcST" 
GOTO TEST SElECT ROUTINE 



r 



GOTO REP4 



*++++**+*+ 



N 






SEQ Zi> 



TEST .S : DMA-TRANSFER FROM A TO B (B IS LISTENER) 



[ TEST5 ] 



j IDENTIKY T EST : 

i 

/ - - \ 

< TEST REPEAT ? >-NO 
\ - / 

Y 
E 

S 

[ BCIN5 ] 
i 



•USE MAXIMAL BYTE COUNT 
GOTO REP5 



: ASK FOR 
: BYTE COUNT 



[ REP5 j 
i 

PREPARE 
BUFFER A AND B 



MASTER CLEAR 

SET A TO CACS 
SET A TO TAGS 
SET B TO LACS 
GOTO STANDBY 



PRFPARE BAR AND 
BCR. ENABLE DMA 
AND INTERRUPT 



[ DMA'S ] 
i 



Hi i'e ro IOR 

FROM BUFFER A 



1-3 6 



SEU 27 



, •» j 

i 

/ . . . - . 

■NO** DATA ACCEPTED ? * 
\ / 

1 



-\ 



INTERRUPT ? 
i 

E 

S 

i 

INTERRUPT 
CAUSED BY 
BCOVFL ? 

; 

E 

S 

♦ 

[ CMP5 ] 
i 

BlTE COMPARE 

0' BUFEER A 
AND BUfTER B 



>-NO --GOTO DMA5 



>-NO 



SB -ERROR 50 



/ 



/ 



« 



< BrTE A EQUAL. 
\ TO BYTE B ? 



\ 



>-N0 SB -ERROR Si 



E 

5 
i 

/ - . - \ 

< ALL COMPARED ? >-NQ 

\ / 

i 

T 



UOIQ CMPS. 



C6 



seu ^a 



/ \ 

< TEST REPFAT ? > -NU 

\ / 

i 

"i 
F 
S 
i 

G0T0*REP5 



•WRITE "FND OF TEST" 
GOTO TEST SELECT ROO INt 



iiit+*++t* 



TEST fc j MATCH CHARACTER REGISTER TEST (B IS LISTENER) 



t 


TEST6 ] 
; 
i 


IDENTIFY 


TEST 


j 


MASTER CLEAR 


SET A TO CACS 
SET A TO TACS 
SET B TO LACS 
GOTO STANDBY 



[ REP6 ] 



BUILD FIRST 
MATCH COUNT 
AND CHARACTER 



BEG6 ) 

i 



PREPARE 
BUFFER A UITH 
ONE CHARACTER 
LIMITED B> 
MATCH COUNT 



D 



5 



SEU 'd9 



PREPARE MCR, 
BAR AMD BCR 
ENABLE 
DMA .MATCH 
AND INTERRUPT 



[ DMA* ] 



BiTE TO IOR 
FROM BUFFER A 



% j 

i 

/ ■■ ■• - - \ 

■NO-< DATA ACCEPTED ? > 
\ / 

Y 

E 

S 

/ \ 

< INTERRUPT ? >«NO 
\ / 

Y 

E 

S 



/ 



INTERRUPT 
CAUSED BY 
END ? 



t 

E 

S 
i 

CMP6 

i 



GOTO 0MA6 



\ 



>-NO 



BYTE COMPARE 
OF BUFFER A 
ANO BUFFER B 



SB -ERROR 52 



i 



< byte a equal 

\ TO BYTE B > 



\ 



>-NO- 



/ 



-SB -ERROR 53 



::5 



seu 30 



E 

S 

/ ■ ~ - \ 

< ALL. COMPARED ? >-N0- 
V --- / 

Y 
E 
S 

/ ALL \ 

CHARACTERS >-N0- 
\ DONE ? / 

T 

E 

: GET FIRST ; 

; CHARACTER 

j 

/ Alt \ 

< MATCH COUNTS > -NO 
\ DONE ? / 

Y 

E 

5 

/ - - -\ 

< Tt ST REPEAT ? > -NO 
\ / 

•t 
c 

S 

i 

G0TQ*REP6 



GOTO CMPb 



GET NEXT CHARACTER 
GOTO BEG6 



GET NEXT COUNT 
GOTO BEG6 



WRITt "END OE T£S1" 
GOTO TEST SELECT ROUTINE 



5 

3EQ 31 
********** TeST 7 j SERIAL POLL PROCEDURE TEST 

L test; ] 
i 



: IDENTIFY TEST i 

i 
i 

I REP/ ] 
j 

i 

j MASTER CLEAR : 

• 

[ POLLO 1 
i 

: SET A TO CACS : 
i 

: ENABLE : 
: SERIAL POLL : 



: SET A TO LACS j 

: BUILD FIRST : 
: TALKER ADDRESS: 

i 

[ PO ) 
j 

: sFNO TALKER : 

: ADDRESS ; 



: GOTO STANDBY : 

i 

;GET STATUS BYTE: 

i 



G3 



SEQ 32 



/ STATUS BYTE \ 

< EQUAL TO >-NU ERROR 54 

n ZERO ? / 

t 
S 
/ \ 

< ALL. DONF ? > NO 

\ / 

I 

i 

E 

S 
i 

: LEAVE STANDBY : 

: DISABLE : 
; SERIAL POLl : 

j GOTO STANOBY : 

i 

[ DQNO ] 
i 

{REQUEST SERVICE: 
j 

: ENABLE : 

: INTERRUPT A • 

i 

/ . . . ' . \ 

< INTERRUPT A ? >-NQ ERRQR+55 

\ ---/ 

i 

i 
t: 

s 

i 



LEAVE STANDBY j 



GOTO PO 



H3 



SEQ 33 



/ INTERRUPT \ 
< CAUSED BY >-N0 
\ SRQ ? / 



SB -ERROR S6 



t 

Y 
E 

S 

i 

POLL 1. } 

» 



• 


SET A TO CACS : 


. 


ENABLE : 
SERIAL. POLL. : 


t 


SET A TO LACS : 


: 


BUILD KIRST : 
TALKER ADDRESS: 



[ PI 1 

♦ 

: SEND TALKER 

: ADDRESS 



GOTO STANDBY 



(>E[ STATUS BYTE 



/ STATUS BYTE \ 
< EQUAL TO >«YE5 
\ ZERO ? / 



N 


i 



< Ail DONE ? 
\ . . 



> -YES 



N 


LEAVE STANDBi 



(iOTO 
PENDi 



13 

SEQ 34 



/ \ > 

ERROR 57 NO-<CORRECT ADDRESS ?> 

\ / : GET NEXT 

! j TALKER ADDRESS 

1 -• - 

E ! 

S GOTO PI 

i 

/ - ......... \ 

<STATUS BYTE OK ? >-NO SB-ERROR 58 

\ / 

Y 

f: 

s 
i 

[ PENDl ] 

/ VALID STATUS \ 

< BYTE TOUND ON >-NO ERROR 59 

\ B ADDRESS ? / 

Y 
L 
S 



: LEAVE STANDBY : 
i 

: DISABLE : 

: SERIAL POLL 

i 

: GOTO STANDBY : 
i 

/ SRQ CLEARED \ 

< BY SERiAL POLL > -NQ ERROR 6U 

\ DISABLE ? / 

Y 
E 

r 

• 

I OQNl ] 
i 



: MASTER CLEAR : 
i 

: SET A TO CACS ; 

; SET A TO TACS : 

t SET B TO I.ACS : 

I 

: GOTO STANDBY j 



J 3 



SEU 3S 



[ SPOVFL] 
i 

ENABLE DMA 
AND INTERRUPT 
FOR BC OVEL 



: BYTE TO TOR 



• > ! 
i 



/ 



•NQ«< INTERRUPT ? 

\ 

Y 
L 
S 



iRtUUESV SERVICE: 



I POLLS ] 
i 



: SET A TO CACS : 



: UNTAlK IEC11-A: 



K 



/ 



ENABLE 
SERIAL POLL 

SET A TO LACS 

BUILD FIRST 
TALKER ADDRESS 

i 

I P2 ] 
i 



: SEND TALKER : 
s ADDRESS : 

i 
: GOTO STANDBY : 


» 
itJET STATUS BYTE: 


i 



/ STATUS Bf TE \ / - \ 

< EQUAL. TO >-YtS •••< ALL DONE ? >-YES- 

\ /ERG ? / \ / 



i 

t i 



! N GOTO 

N PEND^ 


! ; LEAVE STANDBY s 

i ,.--..---.-._._ 

/--■■--" S J 

tRRUR 61 NU-<CORRECT ADDRESS ?> - - 

\ / : GET NEXT ; 

! j TALKER ADDRESS: 

'i 

E ' 



I 

/ * - ■ ■ - \ 

<STATUS BYTE OK ? >-NQ SB-ERRQR 62 

\ ••-/ 

i 

E 

S 
t 

[ PEN02 ] 
i 



GOTO Pd 



SEQ 36 



L3 

SfcU 37 



/ VALID STATUS \ 

< BYTE: KOUND ON > -NU ERROR b5 

\ B ADDRESS ? / 



: LEAVE STANDBY ; 



: DISABLE 

: SERIAL POLL 



GOTO STANDBY 

i 

[ D0N2 ] 
i 

MASTER CLEAR 



SET A TO CACS 

SET A TO TAGS 
SET B TO LACS 



GOTO STANDBY 

i 
I SPEND ] 



ENABLE DMA 
AND INTERRUPT 
EUR END 



BrTE TO IOR 



M6 



SEQ 38 



; j 

! / ' \ 

N0-< INTERRUPT ? > 

\ / 

Y 
E 
S 

{REQUEST SERVICE: 

j 

i 

I P0LL3 ] 
i 

i 

: SET A TO CACS : 
i 

: UNTALK IEC11-A: 
i 

: ENABLE : 

: SERIAL POlL : 

: SET A TO LACS : 

: BUILD FIRST : 
: TALKER ADDRESS: 

[ P3 ) 
i 

: SEND TALKER : 
*. ADDRESS : 

; 

; GOTO STANDBY : 
i 

:GET STATUS B V TE; 
i 



N^ 



O 



SEQ 39 



/ STATUS BYTE 
< EQUAL 1*0 
\ ZERO ? 

i 

N 


i 



\ / 

>-YES < ALL DONE ? 

/ \ 



-YES- 



/ 



/ - - - - - • - \ 

ERROR 64 NO-<CORRECT ADDRESS ?> 

\ / 

i 

Y 

E 

S 
i 

/ - \ 

<STATUS BYTE OK ? >-NO SB-ERROR 65 

\ - / 

Y 

E 

S 
j 

[ PEND3 ] 



LEAVE STANDBY 
I 

GET NEXT 



GOTO P3 



GOTO 
PEND3 



/ VALID STATUS \ 
< BYTE FOUND ON >-NO 
\ B ADDRESS ? / 



ERROR 66 



LEAVE STANDBY 



DISABLE 
SERIAL POLL 



: GOTO STANDBY 



I DONS 1 



t MASTER CLEAR » 



SET A TO CACS 



B4 



SCU 40 



SET A TO TACS 
SET B TO LACS 



GOTO 


i 

STANDBY 


[ 


i 

SPNEX 1 


ENABLE DMA 
ANO INTERRUPT 
FOR NEX 


i 


BVTF 


TO IOR 



> * 

i / - - - \ 

---NQ-< INTERRUPT ? > 

\ / 

t 
E 
S 



: REQUEST SERVICE: 



[ P0LL4 ] 



S St T A TO CACS J 



C4 



SEQ 41 



i 
j UNTAIK IECU-A: 

: ENABLE : 

j SERIAL. POLL 

j SET A TO LACS : 

: BUILD EIRST : 
: TALKER ADDRESS; 

i 

t P4 ] 
» 

: SFNO TALKER : 
: ADDRESS : 

j 

j GOTO STANDBY : 

t 

{GET STATUS BYTE: 
t 

' STATUS BYTE \ / . . . .\ 

< EQUAL TO >*YES < ALL DONE ? >-YES- 

\ ZERO ? / \ / ! 

._...._.. ♦ j 

» N lit) TO 

N PE.ND4 

........ 

• • LEAVE STANDBY : 
i 

' - - \ J 

ERROR 6/ NO-<CORRECT ADDRESS ?» 

N . / : Uf r NEXT • 

! : TALKER ADDRESS: 

1 

E • 

S GOTO P4 

/ - ■ - \ 

'STATUS BYTE OK ? > -NO SB-ERROR bti 

\ / 



D4 

SEQ 42 



PEND4 ] 
i 



/ VALID STATUS \ 

< BYTF. FOUND ON > -NO ERROR 69 

\ B ADDRESS ? / 

E 



LEAVE STANDBY 


DISABLE 

SERIAL POLL 


GOTO STANDBf 


i 

I D0N4 ) 
i 


MASTER CLE "^ 



I 



SET A TO CAr- 

SET B TO TAf 1 . 
SET A TO L"T. 



GOTO STANDBY 

t <m m ■■■■ '■■• — --■—- 

» 

i 

i 



PUT "0' TO 
BUFFER P 



L4 



GEQ 43 



ENABLE DMA 
F^OM 8 10 A 
AND INTERRUPT 
FOR BC OVKI 



: TOR HIGH Q'i It : 
: TO tNJ^FER A ; 



« i 

i /.....'... \ 

---NO-' INTERRUPT ? > 

\ / 



i RE-QUEST SERVICE: 



f POLLS ) 
i 



: SET A TO CACS : 



ENABLE 
SERIAL POLL 

BU.Tl D FTRS1 
TPL.KE.R ADDRESS 



[ PS 1 



SLNC TALKER 
ADDRESS 



F4 

SEQ 44 



I 

t GOTU STANDB* : 
i 

iGET STATUS BYit: 
i 

/ STATUS B<TE \ / \ 

< EQUAL. TO >-YES < ALL DUNE ? >-YES- 

\ ZERO ? / \- / ! 

j • 

N GOTO 

M PEND5 



! : LEAVE STANDBY t 

• ..._....._..... 

/ - \ | 

ERROR 70 IMO-<COPRECI ADDRESS ?> 

\ / : GET NEXT : 

! ; TALKER ADDRESS: 



I 7 ! 

S GOTO P5 

/" - - - - • - ■ -A 

<STATUS BYVE Ui< > >~N0 SB-ERROR 71 

\ / 

1 

r. 

S 

I PfNOS ) 
i 



/ val in sr.-ru:, \ 

< BY It FOUND CJN >-N0--- ERRQR 72 

\ B ADDRESS ? / 



; U'AVt- SlANUbT 



G4 

j 

: DISABLE : 

: SERIAL POLL : 

j 

j GOTO STANDBY : 

« 

[ DON5 1 
i 

i 

/- * \ 

< TFSY REPEAT ? > NO WRITE "END OF TEST" 

\ •/ GOTO TEST SELECT ROUTINE 

i 

fc 

S 

t 

G0T0'hFP7 
10.0 DIAGNOSTIC MONi : :>:". DESCRIPTION 

t H t + H » ♦ H » H I H ! . I I » H H H H 

LOADING PROCEDURE 

a: = a a r. saa^ajjaa^ •..»_« j > it i ;. >na«aa>aaaa 

BOOT XXDP MEDIA, 1'HEN RUN DIAGNOSTIC WITH FOLLOWING 
COMMAND* 

R ZIEC?? 

NOTE: ?? REKERS ' VERSION AND REV LEVEL. 

STARTING I- 1 W C E U U R E 

--aaaa^aai^.-jaaaaj. ■ :; » a tiiiiaiiimii 

A) USING A PROCESSOR UI T H ,\ SWITCH PANEL 

PLACE STAPi iW.MJUi .-*, iWRi SWITCH REGISTER 
C START ADDRESS IS 1000 OCTAL ) 



SEQ 45 



H4 



SEQ 46 



PRESS "LOAD ADDRESS' SWITCH 

PRESS "START" SWITCH 

PROGRAM SHOULD BEGIN TO PRINT OUT THE IDENTIFICATION- 
PRINTOUT, 

BOUSING A LSm 

TVPE IN START rtDn ; U : .SS, "G" INTO ONE LINE, 

press "pr.TUr?N ,, -:a ; Y. 

PROGRAM STARTS WITH IDENTIFICATION PRINTOUT, 

OUSING A PROCESSOR WITHOUT A CONSOLE 

PRESS "CNTRL" f\U\) "ROOT" BUTTONS. OOT CONSOLE 

ROUTINE PRINrs A J -SIGN. 

TYPF IN "L 1000" Ai>'D A <CR>. 

TYPF AFTER THE •"$ " AN "S". PROGRAM SHOULD BEGIN TO PRINT 

IDENTIFICATION PRINTOUT. 



OPERATING 



PROCEDURES 



.t = 3j -.; 



xi j«xu v 



**■**«■**■«*« 



A) 



TO OPFHATE AN EKPOR SEE UNOF.R A) 

TO MODIFY A LOCATION SEE UNOER B) 
TO Dl*1F A LOrfli'AON SEE UNDER C) 
TO ABORT THE RUNNING PROGRAM SEE UNDER 



D) 



ALL TNPUT/OiJPU» OPERATIONS ARE DONE VIA THE DIAGNOSTIC 

MONITOR. NO SWITCH SETTINGS ARE USED, 

ALL COMMANDS, REQUIRED WHEN AN ERROR OCCURS, ARE 

ENTERED VIA THF_ TERMINAL, 

THESE COMMAND-.- SE r OR CLEAR BITS IN A MEMORY LOCATION 

CALLED PSEUDO-SWIiCH REGISTER. 

THE FOLLOWING OPTIONS ARE AVAILABLE; 



,'HT 
/NH 
/PR 
/NP 
/CI 
/NC 
/SC 
.'N ( i 
/CUNT 



HALT Mf TbH tHNuR(DEFAU.Y ) 

NO HALT AFTER ERROR 

r-'XTNT ERROR MESSAGE (DEFAULT) 

KO ERROR PRINTOUT 

COUNT ERRORS 

NO ERROR COUNT (DEFAULT) 

'"■COPE LOOP ON THIS ERROR 

NO SCOPE LOOP (DEFAULT) 

C0NT1NUE-SWITCM 



14 



SEU 47 



WHEN AM ERROR OCCURS, THE FOLLOWING TEXT IS PRINTED: 

ERROR oooxxx 

AT LOCATION: XXXXXX 
HALT AFTER ERPCR 

THE ERROR NOKBtR CAM DE IN THE RANGE - 377, 
THE LOCATION ADDRESS IS ABSOLUTE. 

WHEN AN ERnOR I*-. FOUND. THE PROGRAM IS INTERRUPTED. 
THE ERROR NUMBER. ERROR LOCATION AND PSEUOO STOP MESSAGE 
ARE PRINTED. THEK THE DIGNOSTIC MONITOR WAITS FOR 
INPUT OF OPTIONS. 

PRESS <CNTHi_. C' AMD THE "PROMPT STRING" IS PRINTED AT 
THE BEGINNING OF A NEW LINE. 

CDM> 

^PROGRAM PRINTS WILL. BE UNDERLINED FROM NOW) 

NOW YOU CPU SELEC T fHii OPTIONS YOU NEED TO FIND THE ERROR. 
THE SYNTAX OF A COMMAND LINE IS AS FOLLOWS: 

CDM>ERR>/0PT1/0P17V0PT3/. . .OPTN/CONT <CR> 



It 1HERE js A l.KHGR IN THE INPUT LINE THE HOLLOWING 
MESSAGe. IS PRINTED: 

SYNTAX ERROR ! 



rOU CAN NOW REPEAT THE INPUT. 

AN> COMBINATION 0* OPTIONS IS LEGAL, BUT PR0BAH1 ■ ' ., i USEFU 

UHCN YOU TYPE /SC'NS THE URST OPTION IS OVER 

WRITTEN, THE COMMAND LINE IS INTERPRETED FROM LEFT TO RIGHT. 

■ HE LAST OPl.lfN 7N A LINE MUST BE /CONT . 

THEN THE MONITOR WE TURNS CONTROL TO THE POINT Of PROGRAM 
WHERE THE ERROP WAS ENCOUNTERED AND THE PROGRAM CONTINUES 
WITH THE INPUTEO OPTIONS. 

U) OPTION : DMP 

THIS OPTION CAN i'E OSLO TO CHECK THE CONTENI OF A 

MEMORY LOCATION OH A REGISTER. 

li CAM ONI i BE OVLED AFTER AN ERROR OR WHEN YOU INTERRUPTED 

THE RUNNING PROGRAM EU PRESSING "CNTRL C'\ 



J4 

SEQ 4tt 



EXAMPLE: 

AFTER AN tfi'O'- 1 PRINTOUT YOU PRESSED "CNTRL C" AND THE MONITOT 

RETURNED PU PROMPT STRING: 

CDM> 

3 X = 3 

1*- YUU lANi tO CHECK LOCATION 1COO AND IT CONTAINS 

E.G. O 1 1. 7f»r SO *0U HAVE TO TYPE AFTER THE PROMPT STRING 

CDM-DI*P/0'UOOO 

x = .x a 

AND A K-'JRN. THl MOM TOR WlLl. PR TNT AT THE BEGINNING OF 
THE NEX1 VTNE THE CONTENT Or LOCATION 1000: 

CDM DMP/OHOOO 

01^7* / 

THE MOWIUlil RETURNS NOW INTO ITS WAIT ROUTINE AND WAITS 
FOR FUf 1H<;? INPUTS. 

C) OPT i ON : SET 

TH7S OP'Jv 1 CAN BE li'H) TO MODIFY THE CONTENT OF A 

MEMORY LC-V'TION OR OF A REGISTER. 

IT CAN H\- CALLED ONLY AFTER PN ERROR OR UriEN 10U INTERRUPT 

THE RUNN.'NL PROGRAM. 10 CALL TmE MONITOR PRESS "CNTRL C" AND THE 

MONITOR ANDERS, AS PREVIOUS SEEN, BY PRINTING 

CDM> 

x ~. a x 

IF YOU WANT TO CK «MGE LOCATION 1000, YOU HAVE TO 
TYPE ON THE SAM". LiNE 

CDM > St T/ 1000/000000 

* x m at 

AND PRESS THE "RETURN" KEY. THE LOCATION CONTAINS NOW 
_'ERO. INPUT OF NEW MEMORY LOCATION CONTENT MUST BE SIX 
OCTAL DIGIT _ONG WITH LEADING ZERO'S. 

D) OPTION : ABO 

THIS OPTION CAN BE USED ONLY AFTER AN ERROR OR WHEN YOU 
INTERRUPTED THE RUNNING PROGRAM BY PRESSING "CNTRL C : . 
USING THIS OPTION ALLOWS TO ABORT THE PROGRAM AT CURRENT 
POINT QF TEST AND EITHER TO GO TO BEGIN Oh TEST , OR IF 
SUPPORTED. TO CALL A SUBTEST. 
AFTER PRESSING "CNTRL C" THE MONITOR RETURNS WITH 



I<4 

SEU 49 
COM"* 

T>rPF. NOW ON THE SAME LINE 

CDM>ABQ 

AND THE PROGRAM UU-L GO TO BEGIN OK TE ST OR TO A 

ROUTINE WHLRE YOU CAN SELECT A SUBTEST . 



li.O LISTING 

t + ♦ ♦ ♦ + ¥ 



L4 



.MAIN. MACRO M12G0 30-MAR-84 16:11 SEU 50 
TABLL OF' CONTENTS 

2 4 10U -CORF. 

4- 53 INITIALISATION 

5- 103 MEMORY TEST U1TH MEMORY MANAGEMENT UNIT SETUP 
5- 215 *. .MAP MAPPING ROUTINE 

7- 267 $..EMT 

8- 329 $,.TRP 

9- 399 $.,10T 
10- 430 $.,PWR 
10- 482 *,.RSV 
11 508 J..RRS 

12- 536 $..KBT 

13- 590 $..INP 

14- 661 S..IAY 

15- 712 J..IAA 

16- 759 $..IAD 
18- 873 S..IAE 
19.. 979 $,.REO 
20- 1162 5..WRT 

21 1230 S..KBO 

22 - 1252 $. .PRO 

23 1285 *. .STX 

24 1317 $, ,DMP 
26- 1418 5. .ADP 
27 143/ *..TOT 

28- 1463 $.,BUF 

29- 2 LOCAL MACRO DEFINITIONS 

30- 77 INPUT PROCEDURE 

31- 175 TEST SELECT ROUTINE 

32- 209 TEST 1: REGISTER STATIC TEST 

•V3- 268 TEST 2: TALKER AND LISTENER FUNCTION TEST 

54- 379 TEST 3: GENERAL INTERRUPT AND CMA FUNCTION TEST 

3V- 651 TEST 4: DMA- TRANSFER FROM B TO A (B IS TALKER) 

3/ 706 TEST 5: DMA-TRANSFER FROM A TO B (B IS LISTENER) 

38- 847 TEST 6: MATCH CHARACTER REGISTER TEST (B IS LISTENER) 

39- 919 TEST 7: SERIAL POLL PROCEDURE TEST 

40- 1299 INTERRUPT SERVICE ROUTINES 

41- 1332 CONSTANTS, VARIABLES 
44- 13/2 MESSAGES 

4b- 1411 STANDARD CSS REGISTER TEST 



IEC11 


-B 

1 


TtST 




? 


000000 




3 






4 






5 






6 


000000 



MACRO M1200 30-MAR-84 16:11 PAGE 2 



M4 



LIST 



.ENABL AMA 

.ENABL ABS 

.LIST ME 

.SBTTL LOW-CORE 

.MCALL INIT 

INIT 

ME 



SEQ 51 



5 COPYRIGHT CO 19/6 

i DIGITAL EQUIPMENT CORPORATION, MAYNARD MASSACHUSETTS 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR 
ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH 
SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE 
TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN 
IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
i NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY QF 
ITS SOFTWARE ON EQUIPEMENT WHICH IS NOT SUPPLIED BY DEC. 



N4 



IEClt-B TEST 


MACRO M1200 3( 


LOW-CORE 






7 OOOOOO 






8 






9 






10 






11 






12 






15 






14 






15 






16 






17 






18 






19 OOOOOO 






20 


OOOOOO 




21 


000004 




22 






23 






24 






25 000020 


003056 




26 000022 


OOOOOO 




27 000024 


003126 




28 000026 


OOOOOO 




29 000030 


002326 




30 000032 


OOOOOO 




31 000034 


002524 




32 000036 


OOOOOO 




33 


000030 




34 






35 






36 






37 000200 


000137 


001000 


38 


000137 




39 






40 






41 






42 001000 


000137 


001204 


43 


000100 




44 






45 







PAGE 3 



SEQ 52 



10$ 



.PSECT CSSMON 
MZ001 

st » ■ ■ a 

THIS CHANGE ALLOWS TO USE A MACRO THAT EITHER CLEARS 
THE PSW BY A "CLR" OR A "MTPS". 

GS001 

n a ■ n a 

THIS CHANGE ALLOWS TO START THE PROGRAM AT LOC. 200 



.ASF.CT 
.=0 

.REPT 

. *2 

IOT 

.ENDR 

*. .101 



*. .PWR 





EMT 



TRP 




$ 

.REPT 

. ♦ ? 

IOT 

.ENDR 

JMP 

.REPT 

. *2 

IOT 

.FNOR 

JMP 

.REPT 



.ENDR 



30 



10$ 
137 



START 
100 



POINT TO VECTOR >J 
HANDLE ILLEGAL TRAP 

ILLEGAL TRAP -HANDLER 

PRIORITY - 

POWERE AIL -RESTART -HANDLER 

PRIORITY « 

EMT -HANDLER 

PRIORITY - 

TAP -HANDLER 

PRIORITY * 



POINTER TO VECTOR »2 
HANDLE ILLEGAL TRAP 

INITIALIZE SYSTEM 

POINTER TO VECTOR *2 

HANDLE ILLEGAL TRAP 

INITIALIZE SYSTEM 
{STACK -AREA 



*GS001* 
♦GS001* 
*GS001* 
♦GSC01* 
♦GS001* 
♦G5001* 
♦GS001* 
♦GS001* 
+GS001+ 



e 1 



)..) 



it'Cii n 


TEST 


MACRO Ml 200 30 


-MAR -84 


lbs 11 PAGE 4 




low -com 
















47 

4? 












MZ001 




49 
















so 












AS VERY 


FIRST INSTRUCTION 


51 

52 

5? 












ALL HARDWARE THAT IS IN Al 












.SBTTL 


INITIALISATION 


54 


001204 


000005 






START { 


RESET 


» 


ss 


001206 


012706 


001204 






MOV 


OSTART.SP 


5b 


001212 


012737 


001242 


000004 




MOV 


0I..TYP.4 j 


57 


001220 


005037 


000006 






CLR 


6 i 


58 


001224 


005037 


177776 






CLR 


sops j 


59 


C01230 


000240 








NOP 




60 


001232 


012737 


177777 


007016 




MOV 


O-l.MPTYP i 


t*l 


001240 


000404 








BR 


TYP..E \ 


62 


001242 


005037 


007016 




I. .TYP: 


CLR 


MPTYP j 


63 


001246 










STCKUP 




64 


001252 


012737 


000006 


000004 


TYP,,fc: 


MOV 


06,4 j 


65 


001260 


012737 


000004 


000006 




MOV 


04,6 i 


66 


001266 


012737 


003424 


000060 




MOV 


0»..KBI,B060 j 


67 


001274 


012737 


000340 


000062 




MOV 


0340, "9062 j 


68 


001302 


012700 


007026 






MOV 


okbbutf.ro i 


69 


001306 


005020 






IS: 


CLR 


(RO)* i 


70 


001310 


02002 7 


007202 






CMP 


R0.0PR0ME5 j 


71 


001314 


001374 








BNE 


1* i 


72 
73 

74 


001316 


012737 


001000 


007172 




MOV 


01000, SCOPAD j 


001524 










PSET 


00 » 


75 


001350 










WRITE 


MVERSN i 


76 


00 1 360 


01273? 


007026 


007146 




MOV 


OKBBUEF.KBBPNT i 


7 7 


001366 


004 75 7 


001516 






JSR 


PC.M..TST j 


78 


0013 72 


000414 








BR 


M..SAV i 


79 


0013 74 








M. .TSEi i 






80 


0013 74 


012700 


160000 






MOV 


01 60000 ,R0 i 


81 


001400 


005001 








CLR 


Ri i 


8? 


001402 


012737 


001410 


000004 




MOV 


0.*6,ti04 | 


85 


001410 


012706 


001204 






MOV 


OSrART v SP I 


84 


00 1 4 1 4 


005740 








TST 


(RO) i 


85 


001416 










REMVEC 


02 i 


86 


001424 








M..SAV; 






8/ 


0014P4 


01003? 


00 7022 






MOV 


RO.MtMENO i 


88 


001430 


010137 


007024 






MOV 


R1,MEMEND*2 ( 


89 


001434 


00*201 








ASR 


Wl I 


90 


001436 


006000 








ROR 


RO j 


91 


001440 


006201 








ASR 


Rl i 


92 


001442 


006000 








ROR 


RO , 


9 5 


001444 


0O0241 








CL C 




94 


00144f 


006000 








ROR 


RO j 


95 


001450 










DUMP 


OCT.RO i 


'*> 


00146*; 










WRITE 


N06 i 


"4 I 


0014/0 


052/37 


000100 


1 7 7560 




BIS 


oeiT6,Q)on<b » 


98 


0014 76 


01273.' 


000042 


QQQQ4Q 




MOV 


042.H040 j 


99 


0015C4 


005/5/ 


00/152 






f»r 


OUTR G j 


100 


001510 


001375 








bnf 


. 4 j 


101 


Q01U12 


QCQU? 


010614 






JMP 


CUM».t \ 



SEQ 53 



DO A "RESET" TO CLEAR 
\ UNDEFINED STATF 



jCLEAR THF- WORLD |M/001 

I SETUP SP 
PREP FOR TEST 

IS IT A POP OH A LSI ? 

IT IS A POP 
SKIP LSI PART 
INDICATE A LSI 

REBUILD 

SETUP KEYBOARD VECTOR 
•i it 

RESET ALL FLAGS 



IF NO SCOPE LABEL IS SET IN THE" PROGRAM 

THEN GOTO START AFTER ERR-/SC 

SET PS TO iMZOOl 

5AY HELLO TO EVERYBOOY 

SETUP INPUT -BUFFER -POINTER 

CALL MEM. TEST WITH MEM, MANAGEM, SETUP 

GO TO SAVE HIGHEST MEMORY ADORESS 

HERE IF NO MEMORY MANAGEMENT FOUND 

SETUP MAXIMUM CORE -ADDRESS 

SETlrf 3 FOR MEMtN0*2 FOR UNMAPPED PRUC. 

SETUP TRAPHANOLING 

REBUILD STACKPOINi'cR 

TOP OF CORE? 

REBUILD TRAP TO 4 VECTOR 

HERE IF HIGHEST MEMORY ADDRESS FOUND 

SAVE HIGHEST MEMORY ADDR . 

SAVE EXTENSION BITS 

PUT ADDR16 INTO CARRY 

ROTATE ADDR16 INTO MSB Of RO 

PUT ADDR17 INTO CARRi 

ROTATE ADDR17 INTO MSB OF RO 

RESET CARRY 

SHIFT OUT THE. LS OCT DIGI> OF PhyS AQDR 

DUMP ADDRESS 

PRINT LS-OCT -DIGIT ALWAYS AS "6' 

ENABLE TTl INTERRUPTS 

PREP THIS LOCATION FOR USING AXDP 

SYNCHRONISE OUTPUT 

NOW WE ARE ON THE AIR 



jBBOOl 
jBBOOl 
uBBOOi 

iBBOOl 



jBBOOl 



iBBOOl 
jBBOOl 
iBBOOl 
iBBOOl 
jBBOOl 
iBBOOl 

iBBOOl 



mA^&^uHWMmiKmmw&fa page 



CS 



SEQ 54 



103 
104 

105 

10' 
108 

109 
110 

111 
112 
115 
114 

115 
lib 
11.' 
118 
11* 
120 
121 
122 
123 
124 
1?") 
126 
12? 
128 
129 
150 
151 
152 
155 
154 
135 
156 
15 7 
158 
159 
140 
141 
142 
145 
144 
14 r > 
14b 
14/ 
148 
149 
ISO 

IS I 

IS, 1 

155 
1S4 
1SS 

156 

is/ 

r..H 

159 



001516 
001516 
001524 
001550 
001556 
001542 
001546 
001554 
001562 
001566 
001574 
001576 
001600 
001606 
001610 
001612 
001612 
001656 
001646 
001652 
001660 
001662 
001662 



001700 
001/02 
001704 
001/06 
001712 
001 /14 
001/16 
001 ??? 
001/24 
001726 
001 7 54 
001/42 



012757 
005057 
012757 
005057 
004 737 
012757 
012757 
012700 
012757 
005710 
105051 
162757 
002401 
000771 



012716 
042737 
000422 



000005 



105402 
005001 

000402 
012 701 
006516 
006101 
04 2/00 
050016 
012600 
012737 
012/57 
012737 



001776 
000252 
001776 
000006 
002006 
007400 
000001 
757776 
001766 



000200 



0015 74 
000001 



000001 



160000 



000250 
000004 

172554 
007020 

000004 
172354 



177572 



. SBTTL MEMORY TEST WITH MEMORY MANAGEMENT UNIT SETUP 
SUBROUTINE: M. .TST 



. MEMORY 
^AR5 TO 



MANAGEMENT UNIT 
THE L OW 24K -WORDS 



CHECKS THE AVAILABILITY [}r 
IN PDP-11 PROCESSORS ANO SETS KISARO. 
Of THE COMPUTER MEMORY . 

KISAR7 IS USED TO MAP THE SO-CALLED I/O PAGE . 
KISAR6 IS USED TO MAP THE HIGHEST MEMORY ADDRESS CHECK POINTER 



INPUT: 

OUTPUT: 



AUTHOR: 



M. 



TST 



201 



50$ 



M..0ET: 



000252 
000004 

OOQOOfc 000004 



40$ 
45$ 



0002S0 M,,RETj 
00025/ 



MOV 

CLR 

MOV 

CLR 

CALL 

MOV 

MOV 

MOV 

MOV 

TST 

BCC 

sue 

BLT 
BR 

PSET 

WRITE 

MOV 

BIC 

br 

PUSH 
.REPT 
ASl 
.ENDR 

BCS 

CIR 

BR 

MOV 

ASL 

ROl 

BIC 

BIS 

MOV 

MOV 

MOV 

MOV 



(SP) -Rr.IUfiN ADDRESS 

RO -LOW 16 ADDRESS BITS Of HIGHEST MEMORY ADDRESS 
Rt -BITS 0,1 ADDRESS BITS 16.17 

BERNHARD BAUOISCH CSS/DP MUNICH 19 -DEC -78 



OM, . TRP, 80250 

B0252 

OM. . TRP.804 

S06 

M . , MMM 

07400, KISAR6 

Ol.MMTVP 

01577/6, RO 

OH. .HIM, 804 

8R0 

M. .DET 

0200.KISAR6 

30$ 

20* 

00 

MEMOEF 

OM. . TSE,(SP) 

OBITO.SRO 

M, ,RET 

KISAR6 

5 

C sP ) 

4D$ 

HI 

4S| 

OBU0.R1 

( SP > 

Rl 

01 60000, RO 

RO , ( SP ) 

lSP)*,RO 

0252,80250 

o4.yo/52 

06,faJ04 



REFERENCE LABEL 

SETUP SEGMENTATION TRAP CATCHER 

SETUP TRAP-4 CATCHER 

SETUP DEFAULT MAPPING .ENABLE MM 

MAP WITH KISAR6 THROUGH MF.MfRt 

REMtMBER THAT WE HAVE MEMORY MANAGEMENT! 

GET HIGHEST ADDRESS WITHIN APR6 RANGE 

SET UP TRAP 4 CATCHER 

SEE IF ADDRESS PRESENT 

CC IF ADDRESS FOUNO 

MAP TO NEXT LOWER 4K WORD BANK 

THIS CASE SHOULD NEVER HAPPEN 

CHECK NEXT LOWER 4 -K WORDS 

HERE ONLY If MAIN PROCESSOR HARDWARE ERROR 

SET PRIORITY TO 

MEMORY MANAGEMENT DEFECT 

MODIFY RETURN ADDRESS TO UNMAPPED SlSTEM 

DISABLE MM 

ANO GO AHEAD LIKE UNMAPPED SYSTEM 

HIGHEST MEMORY ADDRESS FOUND 

GET MAP REGISTER CONTENTS 

PUT ADDRESS BIT 17 INTO PSW CARRl 

CS IF ADDRFSS BIT 1? SET 
HERE IF BIT 17 NOT SET 

MAG BIT 17 FOUND 

Gt T ADDRESS BIT 16 

INStRf BIT IN MEMQR1 EXTENSION MASK 

MASK OUT APR SELECTION BITS 

BUILD 16 BIT BASE ADORE Si, 

>R0 FOR OUTPUT TO CAl U" R 
RESET SEGMENTATION TRAP CATCMER 

iRtStl TRAP -4 CATCHER 
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D5 



SEU 55 



160 
161 
IK? 

165 
164 
165 
166 
16 7 
168 
169 
1?0 
1/1 
172 
175 
1/4 
175 
176 
177 

i:e 

179 
180 
181 
182 
18? 
184 
185 
186 
18? 
138 
189 
190 
191 
IS? 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
20 7 
208 
209 
210 
211 
212 
2H 
214 
215 



001750 

001756 
001760 

001760 
001764 
001766 
001766 
001774 

001776 
001776 

002000 
002002 



00?<\)6 

002006 
002014 
002020 
002024 
002030 
002032 
002034 
002036 
002042 
002044 
002050 
002054 
002060 
002064 
002070 
0020 74 
002100 
002106 
002114 



012737 
000207 

012716 
000760 

052766 
000002 



022626 
005726 
000137 



012700 
012701 
012/02 
010022 
005301 
001375 
012702 
005022 
012/22 
012722 
012722 
012722 
012722 
012722 
012712 
052737 

000207 



000004 000006 



001374 



000001 000002 



001760 



077406 
000010 
172300 



172340 

000200 
000400 
000600 
001000 
001200 
001400 
007600 
000001 







MOV 


04,806 






rt<; 


PC 


u. 


.DET: 










MOV 


OM. . TSE.CSP) 






BR 


M. ,RF.T 


M. 


.HIM: 










BIS 


08IT0.2CSP) 






RTI 




i 
M, 


.TRP; 










CMP 


(SP). ,(SP)* 






T5T 


t SP ) * 






JMP 


U. ,DE T 



I RETURN TO CALLER 

I HERE If MEMORY MANAGEMENT ADDRESS NOT FOUND 

iMODTFY RETURN ADDRESS 

j RETURN COMMON 

,TRAP-4 AND SEGMENTATION TRAP CATCHER 

j SET CARRY IN RETURN PSW SETUP 

iRETURN WITH CARRY SET INDICATOR 



jCt.EAN 

j CLEAN 



STACK 



OF INT. 
FROM RE 



VALUES 
TURN ADDRESS 



{NO MEMORY MANAGEMENT UNIT AVAILABLE 



1 

M » , MMM ; 



10$ 



1/75/2 



SUBROUTINE M. .MMM 



THIS ROUTINE IS CALLED TO SET UP THE APR AND PUR 
REGISTER WITH DEFAULT VALUES AND TO ENABLE MEMORr 
MANAGEMENT , 



INPUT: 
OUTPUT; 



NONE 

ALL PDRS ARE PRESET WITH 

APRO IS PRESET WITH 

APR1 " 200 

APR2 '* 400 



77406 



PUSH 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

POP 

RETURN 

.SBTTL 



APR7 

MM IS ENABLED 



R0.Rl.n2 

•7 7406.R0 
08. ,R1 
OKISDR0.R2 
R0.CR2)* 

Rt 

10$ 

0KISAR0.H2 
(R2). 

0200. (R2)» 
0400, (R2>* 
0600, (R2)» 
01000, (R2)» 
01200, (R2). 
01400, (R2)» 
07600 1 cJR2 
OBITO.SRO 
R2.R1.R0 

$, .MAP MAPPINL 



7600 



SAVE 

GET PAGE DESCRIPTOR REGISTER SETUP 

SETUP FOR 8 PDR' S 

GET KISDRO ADDRESS 

SETUP NEXT PDR 

COUNT SETUPS 

NE IF MORE TO DO 

GET KISAR BASF ADDRESS 



SETUP 
SETUP 
SETUP 
SETUP 
SETUP 
SETUP 
SETUP 
SE ! UP 
ENABLE 



KISAR 



KISAR 1 

KISAR 2 

KISAR 3 

KISAR 4 

KISAR 5 

KISAR 6 

K I SAR 7 

MEMOR t 



TO I/O PAGE 

MANAGEMENT 



RESTORE 
{BACK TO 

ROUTINE 



RIGS . 

CALLER 



E5 



ItCil B 
S. t NAP ^ 


It SI 


MACRO M 
ROUTINE: 


1000 3< 


APPING 




017 
Oltf 








01^ 








ooo 








AH 








"* 1 ~> 








i.*..*;. 








2*75 








004 








1 >u 








i.fc-- 1 








006 








? ■> * 








4_»- ' 








208 








229 








030 








031 








050 








0?? 








234 








055 








056 








03 7 


002116 






236 


002122 






039 


002136 


000003 




040 


002140 


C00137 


002316 


241 


0021m4 


004737 


002006 


240 


002150 


013700 


007022 


24 3 




000006 




244 








245 








246 


000170 


042700 


176000 


04 7 


000174 


013701 


007024 


248 




000012 




049 








050 








051 


000024 


060001 




?5? 


002226 


042737 


000001 


253 


002234 


020166 


000006 


254 


002240 


000003 




255 


002242 






056 


0022<>2 


052700 


000001 


j 7 


00""!266 






258 


002306 


O0C4O3 




259 


002310 


016637 


000006 


260 


002316 






261 


002322 


012616 




060 


002324 


000207 




06 3 








064 








265 
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SUBROUTINE: 



sea 56 



*, .MAP 



177776 



172354 



$. .MAP: 



10$ 



IS 
2$ 



THIS ROUTINE IS USED TO MAP UITH APR6 TO THE PHYSICAL MEMORY 
ABOVE 28. K AND COMPARE DMA READ AND WRITE DATA 



INPUT 



OUTPUT 



(SF) 
2CSP) 
4CSP) 



'RETURN ADDRESS 

'100 OCTAL 8YTE BLOCK OFFSET 

'MAPPING POINTER 



KERNEL APR6 IS MAPPED TO BUFFER START ADDRESS 
MAPPING POINTER IS SET TO BASE ADDRESS OF APR6*140000 
CARRY IS SET IF NO MEMORY AVAILA81 E 
BREAKPOINT TRAP, IF YOU TRY TO MAP TO CDM (0-4. K) 

AUTHOR; ALBERT BREM CSS MUC 16-JAN-79 



{SAVE REGISTERS 
lOSjDONT MAP TO SYSTEM AREA 
jDONT MAP TO SYSTEM AREA 
iLEAVE 

{ENABLE MM, SETUP DEFAULT MAPPING 
j SAVE HIGHEST MEMORY LOCATION 

j COMPUTE 100 OCTAL BYTE BLOCKS 

I " 

j SAVE MEMORY EXTENSION 

{COMPUTE ADDITIONAL BLOCKS 

;TOTAL BLOCKS OF 30 , WORDS MEMORY 

{CLEAR CARR'J 

{IS MEMORY AVAILABLE? 

{YES 

{SAVE CURRENT PSU 

{SET CARRY FOR ERROR INDICATION 

I " 

jDONT TOUCH <\PR6 

} MAP TO BUFFER AREA 

{RESTORE REGISTERS 

{CI FAN TACK OF ARGUMENT 

iBACK TO CALLER 



PUSH 


R0.R1 


IF 6CSP) GE 0200 GOTO 


BPT 




JMP 


2$ 


CALL 


M , . MMM 


MOV 


MEMEND.RO 


,REPT 


6 


ROR 


RO 


.ENOR 




BIC 


*1 76000, RO 


MOV 


MEMENDf2,Rl 


.REPT 


10. 


A5L 


Rl 


,ENOR 




ADD 


RG.R1 


BIC 


ofliTo.aops 


CMP 


R1,6(SP) 


BGE 


11 


PREAD 


RO 


BIS 


0BITO.RO 


PSET 


RO 


BR 


OS 


MOV 


6(SP).KISAR6 


PUP 


R 1 , RO 


MOV 


(SP)m(SP) 


RETURN 





F!3 



it:cn-B 


TEST 


MACRO M1200 3C 


$..EMT 








26 7 








268 








269 








2/0 








071 








272 








273 








274 








275 








276 








277 








2 78 








2 79 








280 








281 








282 








283 








284 


002326 


012746 


177776 


285 


002332 


066616 


000002 


286 


002336 


017616 


000000 


287 


002342 


042716 


177400 


288 


002346 


006316 




299 


002350 


021627 


000004 


290 


002354 


101413 




291 


002356 






292 


002366 






293 


002400 


000137 


001000 


294 


002404 


062716 


002416 


295 


002410 


017616 


000000 


296 


002414 


000136 




29/ 


002416 


002424 




298 


002420 


0024 32 




299 


002422 


0024 70 




300 


002424 






301 








302 








303 








304 


002424 


011637 


007172 


305 


002430 


000002 




306 








30 7 








308 








309 


002432 


017646 


000010 


310 


002436 


016676 


000010 


311 


002444 


062716 


000002 


312 


002450 


016636 


000006 


313 


002454 


012666 


000004 


314 


002460 


012666 


000004 


315 


002464 


005726 




316 


002466 


000002 




317 








318 








319 








320 


0024 70 


017646 


000004 


321 


0024 74 


011646 




322 


0024 /6 


062/16 


000002 


523 


002502 


012636 
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SEQ 57 



000000 



. SBTTL $..EMT 

SUBROUTINE; $..EMT 



i 



j THIS ROUTINE HANDLES ALL EMT -TRAPS THAT MIGHT OCCUR 
} IN A DIAGNOSTIC PROGRAM, AND DIRECTS THE PROGRAM TO 
; CONTINUE AT THE APPROPRIATE FUNCTION SUBROUTINES. 



{INPUT; 
! OUTPUT: 
AUTHOR i 

$. .EMT 



2CSP) 
(SP) 

NONE 



- PS 
PC 



BERT HUBER CSS/DP MUNICH 14-JULI-76 



1$ 



EM T TBL 



r.MTTND 



. ENABL 
MOV 

ADD 

MCV 

BIC 

ASl. 

CMP 

BLOS 

WRITE 

DUMP 

JMP 

ADD 

MOV 

JMP 

EMTO 

EMT1 

EMT2 



LSB 
0-2, -(SP) 
2(SP),(SP) 
H(SP).CSP) 
0177400, (SP) 
(SP) 

(SP).OEMTTND 
1$ 
MIL.EMT 

0CT,2(SP) 

aoiooo 

OEMTTBL.(SP) 

a(SP),(SP) 
a(sP)* 



jREBUILD EMT-ADDR. 
I 

{GET EMT-CODE 
{EXTRACT EMT-NR. 
{CONVERT TO TABLE -OFFSET 
EMTTBL-2;VALID EMT-NR.? 
{IF LOS, YES 
{ILLEGAL EMT 

{RESTART PROGRAM 

j GET FUCTION CODE ADDR. 

{ENTER FUCTION SUBROUTINE 



SUBROUTINE TO SAVE SCOPE -LOOP ADDR. 



EMTO: MOV (SP).SCOPAD 

RTT 

SUBROUTINE TO SETUP A VECTOR 



EMT1: MOV U10CSP), ( SP ) 

MOV 10(SP),a(SP) 

ADD 02, (SP) 

MOV h(SP),S(SPn 

MOV (.SP)*.4(SP) 

MOV (SP)».4(SP) 

TST (SP>* 
RTI 



{SAVE ADDR, Of SCOPE -LOOP 
{RETURN TO CALLER 



{GET POINTER TO VECTOR ADDR 
tSETUP VECTOR 
{POINT TO NEW PS 
{SETUP NEW PS 
.CLEAN VP STACK 
i 
I 
{RETURN TO CALLER 



SUBROUTINE TO RESET A VECTOR 

EMT2: MOV U4CSP), ( SP ) 
MOV (SP). (SP) 
ADD 02 , ( SP ) 

mov (SP)».ac c >P)» 



I tit T POINTER TO VECTOR A 
lOUPL ICATE IT 

iHUILD ADDRESS OF VECTOR 
{RESET VECTOR 



If.CU-B 
«..EMT 



TFST 
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G!3 



SEQ 58 



324 00c} 504 

325 002512 
?26 002520 
527 002522 



0127 76 
016666 
012616 
000002 



000004 
000002 



177774 
000004 



MOV 
MOV 
MOV 
RTI 



44.S-4CSP) 

2(SP),4(SP) 
(SPV.CSP) 



jRESET 
{CLEAN 



VECTOR 
STACK 



»2 



j RETURN TO CALLER 



..It 



D 



iW 



TEST 
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SEQ 59 



329 

350 
351 
33c"* 

333 

334 

335 

336 

33? 

338 

339 

340 

341 

34c' 

34? 

344 

345 

346 

34 7 

348 

549 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

36,? 

363 

364 

365 

366 

36/ 

368 

36S 

3/0 

371 

3 A? 

373 

374 

3/5 

376 

37/ 

3/8 

3 n 

380 
381 
382 
385 

3 84 

3as 



002524 
002530 
002534 
002540 
002544 
002550 
002552 
002556 
002560 
002564 
002566 
002576 
002610 
002614 
002620 
002626 
002630 
002640 
002652 
002662 
0026 74 
002 /02 
002/04 
002/10 
002/12 
002722 
002/31 
002/42 
002/44 
002 /52 
002 754 

002 762 

002/64 
002/74 

003002 



012746 
066616 
017616 
042716 
00573/ 
001421 
005737 
100020 
021637 
001415 



011637 
032737 
001022 



032737 
001414 
0052/6 
001011 



032/3/ 

001014 
032/37 
001010 
032/3/ 
001004 

032 av; 

001004 



177776 
000002 
000000 

17 7400 
007166 

007160 

007166 



00/166 

040000 007160 



.SBTTL 5..TRP 



SUBROUTINE: 



*. ,TRP 



THIS ROUTINE HANDLES ALL TRAPS TO LOC 34 THAT MIGHT 
l OCCUR IN A CSS-DIGNOSTIC PROGRAM. 

j AS THE TRAP INSTRUCTION IN THIS DIAGNOSTICS IS ONLY USED TO 
; INDICATE AN ERROR CONDITION, THIS TRAP -HANDLER IS A (PSEUDO-) 
; SWITCH-REGISTER CONTROLLED ERROR HANDLER. FOR THE DEFINITION 
5 OP ALL AVAILABLE * SWITCH 1 -OPTIONS , REFER TO SUBROUTINE "$..IAE 
{ LATER IN THIS LISTING, 



INPUT 



,.0W ORDER 



2CSP) 

(SP) 

BYTE OF 



TRAP 



PS 

PC 

INSTRUCTION 



ERROR NUMBER 



; OUTPUT 
i AUTHOR 



DEPENDING ON OPTIONS SELECTED 

BERT HUBER, CSS/DP MUNICH 14 -JUL -76 



*..TRP: 



2$ 
3$ 



020000 007160 4S 
000002 

040000 00/160 5$ 

100000 007160 

010000 007160 

010000 007160 6* 



:.PSECT 

.ENABL 

MOV 

ADD 

MOV 

BIC 

TST 

BEQ 

TST 

BPL 

CH' 

bEQ 

WRITE 

DUMP 

GOTO 

MOV 

BIT 

HNE 

URITE 

D^JMP 

WRI fE 

DUMP 

BIT 

BEQ 

INC 

BNt 

WRITE 

DUMP 

BIT 

BNt 

BIT 
RNe 
BIT 
BNt 
UR T 
HH 
BNE 



TE 



CSSMON 

LSB 

♦ -2.-CSP) 

2CSP),(SP) 

acsp).(SP) 

0177400, (SP) 

$. ,ER 

2t 

PSD5WR 
3$ 

(SP).$. .ER 
3$ 

Mil SCP 

OCT, \5P) 

STAR ! 

(SP),*. .ER 

<miT14,PSDSWR 

41 

MERROR 

DEC.(SP) 

MERRP2 

0CT.2(SP) 

<?BlT13,PSDSWR 

5$ 

b)2(SP) 

5* 

MERCOV 

DEC.(SP) 

0BIT14.PSDSUR 

6$ 

0BIT15.PSD5WR 

6$ 

0BT1 12.PSDSWR 

hi 

MFRHl T 

0BIT12.PSDSWR 

/$ 



s REBUILD TRAP ADDRESS 

r " " 

'GET TRAP CODE 
EXTRACT ERROR NUMBER 
FIRST ERROR OCCURENCE ? 
IF EQ, FIRST PASS 
SCOPE LOOP ? 

SAME SCOPE LOOP ? 

IF EQ, YES 

ILLEGAL SCOPE LOOP 

DUMP ADDRESS OF ERROR »2 

RESTART PROGRAM 

STORE ERROR NUMBER 

INHIBIT PRINTOUT ? 

IF NE, >ES 

PRINT ERROR MESSAGE PART 1 

DUMP ERROR NUMBER 

PRINT ERROR MESSAGE PART 2 

DUMP ERROR PC *2 

COUNT ERRORS ? 

If EQ, NO 

COUNT ! 

if EQ t OVFRFIOU 

ERROR COUNTER OVfcRFLOW 

DUMP ERROR NUMBER 

PRINT ? ? 

V Ut , NO 
SCOPE LOOP ? 

V SCOPt , NO PRINT 

HALT AFTER F'RROR SELECTED 
IF NE, H-S 

stop message 

HAL T 7 

IF EQ, 1ES 



ItCll B 


TFST 


MACRO M1200 3< 


$..TRP 








386 


003004 


032737 


004000 


387 


00301c 1 


007.770 




388 


003014 


042737 


004000 


389 


003022 


005737 


007160 


390 


003026 


100005 




391 


003030 






39c* 


003054 


005/26 




39 < 


003036 


000177 


004130 


394 


003042 


00503 7 


007166 


39b 


003046 


005726 




396 


003050 


062/16 


000002 


397 


O03Q54 


000002 
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007160 
007160 7$ 



ti$ 



31 T 

ULU 

BIC 

TST 

BPt 

510 

TS1 

JMP 

Cl.R 

TST 

ADD 

RT1 



<UP 



IL 



OBTTll.PSDfiWR 

6* 

#OTTU,PSDSUR 

PSOSWR 
8$ 

(SP)» 
SSCOPAD 
t . .C R 
(SP)» 
*2,(SP) 



SEU 60 



{IMMEDIATE CONTINUE ? 



j IF NE 
i SCOPE 



YES 
LOOP ? 



» IF PI., NO 

jAUJUST STACKPOINTt.'J 
j ENTER SCOPE LOOP 
j RESET ERROR NUMBER 
(READvJUST STACK 
jHUILD RETURN ADDRESS 
} RETURN TU CALLER 



J b 



IEC11-B 


rtr^T 


$,,101 




39^ 




400 




401 




402 




405 




404 




405 




4 Oh 




40'-' 




408 




409 




410 




411 




412 




413 




414 




4 15 




41b 




417 




418 




41» 




420 




421 




422 


0030S6 


423 


003066 


4^4 


003072 


425 


003102 


4 26 


003112 


4?/ 


003124 


426 
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.SBTTL 



SEO 61 



162716 000002 



000777 



SUBROUTINE: 



$. .TOT 
t. .IOT 



i THIS SUBROUTINE HANDLES ILLEGAL TRAPS OR INTERRUPTS. 

• IF SUCH A TRAP OR INTERRUPT OCCURS, A MESSAGE-; IS 

; PRINTED, SHOWING THE VECTOR TRAPPED TO, AND THE PROGRAMS PC 
l WHERE IT WAS INTERRUPTED. 

THE PROGRAM HALTS THEN, AND MUST BF RESTARTED, 



INPUT : 



OUTPUT 
AUTHOR 



6CSP) 

4CSP) 

2(SP) 

CSP) 



PS OF PROGRAM 
PC OF PROGRAM 
PS OF VECTOR 
PC OF VECTOR >2 



MESSAGE TO THE OPERATOR 

BERT HUBER, CSS/DP MUNICH 22- JUL- 76 



.PSECT CSSMON 
.ENABL LSB 
$,,IOT: WRITE. MILTR1 



SUB 

DUMP 

WRITE 

DUMP 

BR 

.OSABL 



02, (SP) 
OCT.(SP) 
MILTR2 
0CT.4CSP) 

LSB 



;SENO URSf Mt.SSAGE PART 
{COMPUTE VECTOR 
{DUMP VECTOR ADDRESS 
{SEND SECOND MESSAGE PART 
{DUMP PROGRAM PC 
;HANG UP SYSTEM 



1ECU -B 
$, .PWR 



TEST 



Kii 



MACRO M12O0 50 -MAR -84 16 til PAGE 10 



SLQ 62 



4 50 
451 

4 5? 

4 35 

4 54 

43I> 

4 3* 

4 3? 

4 38 

4 30 

440 

441 

44,? 

443 

444 

445 

446 

44/ 

448 

449 

450 

451 

45? 

453 

454 

455 

456 

45/ 

458 

459 

460 

461 

462 

463 

464 

465 

4b6 

46 7 

468 

469 

4 70 

471 

4 7? 

4/3 

4 74 

4/5 

4 76 

4// 

4 78 

4 /9 

480 

481 

48c 1 

4 8', 

4 84 

485 

4fc6 



.5BTTL $..PWR 



{SUBROUTINE: 



*, ,PWR 



003126 

00314? 
003144 
003146 
003154 
003160 
00316? 
003166 
003170 
0031/2 
003174 
003176 
003202 
003204 
003210 
003214 
003220 
003226 
00324? 
003246 
003250 
003?t.O 
003264 
00326t- 
003274 
003302 
003306 
003310 
003316 
003 324 
003332 
003336 
00*1340 
00 3 350 
003356 



010627 
000000 
012737 
013727 
000000 
013727 
000000 
000777 
005002 
005202 
020227 
001374 
013706 
005037 
00503 7 
012737 

015727 
000000 

005737 
001375 

013737 
005737 
001411 
013737 

112/37 
005/3/ 

001407 

013/37 
000002 



003172 
007152 

007150 



177777 

003144 
007152 
i'0/150 
003126 

005700 



00/15? 



003160 
007152 

003246 

000012 
003166 



000024 



000024 



007152 

005700 
17 7566 



003166 007150 



{THIS ROUTINE IS DIRECTLY ENTERED AFTER EACH POWER -FAIL TO 

lHANDLE THE NECESSARY REGISTER SAVE OPERATIONS. AND IS USED 

;AFTER THE POWER-UP INTERRUPT TO RESTORE THE SAVED REGISTERS 

{AFTER A SUCCESFULL POUER-FAIL RESTART, A SHORT MESSAGEW IS PRINTED. 



{ AUTHOR 


• 


BERT HUBER, CSS/DP MUNICH 27 JULY 76 


• 


M/001 


SAVE THE OUTM.AG 


IN 3$ AND RESTORE IT 


• 


s«iKa 


AFTER PRINTOUT OF 


" THE POWERFAIL MESSAGE 


I " 


; .PSECT 


CSSMON 






.ENABL 


LSB 




$, .PWR; 


PUSH 


R0,R1,R2,R3 # R4,R5 




MOV 


SP.CPC)* j 


SAVE STACK POINTER 


1$: 


.WORD 


i 


S TACKPOINTER - SAVE - ARE A 




MOV 


o?.t t ao?4 i 


SETUP VECTOR FOR RESTART 




MOV 


OUTFLG, ( PC }•• 


SAVE PRINT FLAG jMZOOl 


3$: 


.WORD 


! 


SAVE FOR FLAG ;MZ001 




MOV 


INFLAG, (PC)* i 


SAVE IN^UT FLAG 


5t: 


.WORD 





SAVE WORD FOR INPUT FLAG 




BR 


, 


WAIT FOR POWER DOWN 


2$: 


CLR 


R2 


DELAI 




INC 


R2 


THE 




CMP 


R2. #177777 


POWER UP START 




BNE 


. -6 


FOR 1SEC0ND 




MOV 


1 * . SP 


REBUILD STACKPOINTER 




CLR 


OUTFLG 


ALLOW PRINTOUT OK PWFRL MES, (M/001 




CLR 


INFLAG 


" 




MOV 


*$, ,PWR,b)*?4 


REBUILD VECTOR SETUP 




POP 


R5 I R4,R3,R2,R1,R( 


) 




MOV 


i. .MSP.CPO* 


SAVE OLD MESSAGE POINTER 


8$: 


. WORD 





SAVE. WORD FOR OLD MESSAGE POINTER 




WRITE 


MPWREL 


SEND POWER -» AIL -MESSAGE {MZOOl 


4$: 


TST 


outflg 


WAIT FOR OUTPUT COMPLETE {M/001 




BNE 


45 


{M/001 




SET6 


HflTKS 


ENABLE FURTHER TTY INTERRUPTS 




MOV 


3 5. OUTFLG 


{RESTORE FLAG V IT WAS SET jM/OOl 




TST 


OUTFLG 


IF AN OUTPUT BEFORE PWRFL WAS RUNNING 




BEQ 


/$ 






MOV 


6$.$. .MSP 


THEN RESTORE OL.D MESSAGE POINTER 




5F 1 6 


M0TPS 


{AND F.NABl E INT IN fPS 




MOVB 


012 # a#TPB 


{AND START INTERRUPT 


7$: 


TST 


5 J 


; IK AN INP FLG BEFORE PWRH. WAS NOT SE 




RFQ 


M 


{GOTO 61 




WRITE 


PROMES 


{ELSE WRITE. ^ 




MOV 


5$, INFLAG 


I RESTORE INPUT FLAG IF IT WAS SET 


OS: 


RTI 




j CONTINUE WITH PROGRAM 




.D5ABL 


I SB 






.SBTTL 


1. .RSV 




! SUBROUTINE : 


$ . .RiiV 




j «*«*»»»#*»» 


a * *» 4 • 





It CI 1 B 



Lb 



Tt ST 
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SEQ 63 



487 
488 
489 
4 90 
49; 
4 9,^ 
49? 
494 
49S 
49b 

49; 

498 
499 
SOO 
SOI 
S02 

so? 

S04 
SOS 
506 



I THIS ROUTINE SAVES R0-R5 ONTO THE STACK 



003360 
003374 



000176 00001 A 



INPUT • 
OUTPUT; 



AUTHOR: 



(SP) 

(SP) 

2CSP) 

4CSP) 

6CSP) 

10CSP) 

12(SP) 

14CSP) 



CALLER PC 



R5 
R4 
R3 
R2 

Rl 
RO 



CONTENT 
CONTENT 
CONTENT 
CONTENT 
CONTENT 
CONTENT 



CALLER PC 



BERT HUBER, CSS/DP MUNICH 12 -APR -76 



: .PSECT CSSMON 
.ENABL LSB 
$,,RSV: PUSH R0,R1,R2,R3,R4 I RS 



JMP 
♦DSABL 



U14CSP) 

LSB 



j RETURN TO CALLER 



i^Ws' 



508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
5?? 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 



MIS 



B TEST 
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SfcU 64 



.SDTTL $..RRS 



SUBROUTINE: 



*. .RRS 



THIS SUBROUTINE RESTORES R5-R0 FROM THE STACK 



INPUT; 



CSP) 

2CSP) 
4CSP) 
6CSP) 
10CSP) 
12CSP) 
14CSP) 
16CSP) 



CALLER PC 
SAVED R5 
SAVED R4 
SAVED R3 
SAVED R2 
SAVED Rl 
SAVED RO 
OLD CALLER PC 



OUTPUT; 
AUTHOR: 



REGISTERS ARE RESTORED AND STACK IS CLEANED 
BERT HU6ER, CSS/DP MUNICH 12-APR-76 



003400 
003402 
003416 
003420 



005726 

005 >2C 
000176 



177760 



t .PSECT CSSMON 

.ENABL LSB 

$..RRS: TST (SPn {POINT TO SAVED R5 

POP R5.R4.R3. R2.R1.R0 

TST (SP)* {SKIP OLD CALLER PC 

JMP Q-20CSP) 

.DSABL LSB 



{RETURN TO CALLER 



N5 



IEC11 -8 


TEST 
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$, ,KBI 








536 








537 








538 








539 








540 








541 








54 2 








543 








544 








54 5 








546 








54/ 








548 








549 








550 








551 








552 








553 


003424 


005737 


007153 


554 


003430 


001422 




555 


003432 






556 


0034 34 


005037 


177560 


557 


003440 


013/00 


177562 


558 


003444 


012737 


000100 


559 


003452 


042700 


000200 


5*0 


003456 


022700 


000003 


561 


003462 


001003 




562 


003464 


012737 


0077/7 


563 








564 








565 








566 








56/ 


0034 72 






568 


0034 74 


000436 




569 


003476 


004 737 


003360 


570 


003502 


013700 


177562 


571 


003506 


042 700 


000200 


572 


O03512 


122700 


000003 


5/3 


003516 


001003 




574 


003520 






575 


003520 


004 737 


006136 


576 


003524 


000420 




577 


003526 


005737 


007150 


578 


003532 


001415 




579 


003534 


004 737 


003574 


580 


003540 


020027 


000015 


581 


003544 


001010 




SKi? 


003546 


005037 


00. 150 


583 


003552 


012/01 


00/026 


584 


00 5556 


010137 


00/146 


585 


003562 


004/3/ 


004010 


586 


00356*i 


004 / 1 / 


003400 


58/ 


003572 


000002 




588 









SEQ 65 



.SDTTL S..KBI 



SUBROUTINE: 



t . .KBI 



* M M a * - 



THIS ROUTINE IS ENTERED IMMEDIATELY AFTER AN INTERRUPT 
FROM TTY -KEYBOARD. ALL REGISTERS ARE SAVED ACROSS CALL 



INPUT: 



2iSP) 

CSP) 



PS 



PC 



177560 



007170 



; OUTPUT: 


NONE 


! AUTHOR: 


BERT HUBER, 


i.PSECT 


CSSMON 


.ENABL 


I..S8 


♦..KBI: TST 


OUTFLG 


BEU 


4$ 


PUSH 


RO 


CLR 


SOTKS 


MOV 


SOTKB.RO 


MOV 


0100, aMKS 


BIC 


0200, RO 


CMP 


03, RO 


BNE 


13* 


MOV 


07777, SPEFLG 



13$: 


POP 


RO 




BR 


3$ 


4$: 


CALL 


$. .RSV 




MOV 


HOTKB.RO 




BIC 


0200, RO 




CMPB 


03, RO 




BNE 


1$ 


USPE: 








CALL 


%. .PRO 




RR 


?% 


1$: 


rsr 


INK LAG 




BFQ 


2$ 


5$: 


CAl 1 


$ . . INP 




CMP 


R0.015 




BNE 


2$ 




CLR 


IN* I. AG 




MOV 


OKBBUFF ,Ri 




MOV 


Rl .KBBPNT 




CALL 


$ . . I A t 


2$: 


CAl I 


*. .RR8 


3$: 


RU 






.DSABL 


LSU 



OUTPUT RUNNING ? 

IK NE. IGNORE INTERRUPT 
SAVE 

INHIBIT INTERRUPT 

GET CHARACTER 
RE ENABL t 

MASK OUT ASCII 
IS IT <CNTRL C> ? 

IF NOT. RETURN 

SET A SPECIAL FLAG 

THIS FLAG IS USED TU FINISH 

A RUNNING PRINTOUT AND THEN 

REMEMBER THAT <CNTRL C> WAS 

REBUILD 

RETURN TO CALLER 
r >AVE ALL REGISTERS 
GET INPUT BYTE 
BUILD REAL ASCII 
<CNTRL C> FUNCTION ? 
IF NE, NO 

SEND PROMPT STRING 

RETURN 

INPUT FLAG SET ? 

If EQ, NO 

PROCESS INPUT 

WAS IT A <CR> ? 

If- NF , NO 

RESET INPUT MODI H AG 

REBUILD BUFFER POINTER 
ii M ,i 

ANAl Mi. INPUT 

Rl STORE REGISTERS 

RETURN TO CALLER 



TO 
HIT 



{.}( 



ncn -h 


test 
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* . . INP 
















5^0 










,SDTTL 


»..1NP 




5S1 








j ♦ 








5^4 

595 








I SUBROUTINE: 


1. .INP 
E IS THE INPUT -HAN 




iTHTS SU8RCUTIN 


DLER FOR ALL TERMINALS 


5^6 








jUSED IN ALL CSS-MUNICH DIAGNOSTIC SOFTWARE GENERATED NOW 


?w : 








j AND 


LATER. 






r»^3 








i THE 


SPECIAL FUCT10N5 HANOLEO BY 


THIS ROUTINE ARE: 


sq<? 










<CNTRL 


U> ^OR LINE RUBOUT 




600 










<OELETE 


> FOR CHARACTER RUBOUT 


601 








j ALL 


OTHER INPUT IS HANDLED AS NORMAL ASCI -TEXT AND STORED 


602 

604 








;IN 1 


HE KEYBOARD INPUT BUFFER, 










j INPUT j 


CSP) • CALLER PC 


605 












RO ■ CURRENT INPUT CHARACTER 


606 
















r>0* 








j OUTPUT t 


NONE 




b08 
















60* 








j AUTHORS 


BERT HUBER CSS/DP 


MUNICH 


610 








I - 








611 










.IOENT 


/vi.o/ 




Ml 1 








I 


.PSECT 


CSSMON 




613 










.ENABL 


LSB 




614 


003574 


013701 


007146 


I..INP: MOV 


KB3PNT.R1 


MlGET CURRENT BUFFER PQIN 


615 


003600 


012702 


006122 




MOV 


•*,,KR0,R2 J 


l jPOINT TO KEYBOARD-ECHO 


616 


003604 


022701 


007146 




CMP 


•KBBEND.R1 i 


j t INPUT BUFFER FULL? 


617 


003610 


001015 






BNE 


H i 


1 | IF NE , NO 


61ft 


00361? 


022700 


000025 




CMP 


♦25, RO j 


l l<CNTRL U>? 


619 


003616 


001415 






BEQ 


21 j 


1 i IF EQ, YES. 


620 


003620 


122700 


00017/ 




CMPB 


•177.RO j 


j j<DELETE*? 


Wl 


003624 


00140/ 






BEQ 


1* 1 


I t IF EQ, ffS. 


622 


003626 


005037 


007150 




CLR 


INF" LAG , 


;jRESET INPUT* LAG 


623 


003652 








UMITE 


MKBOVE j 


I jPRINT OVERFLOW MESS, 


624 


00364 2 


000451 






BR 


7$ i 


i jPROMPT F OR INPUT 


625 


0O3644 


122700 


000025 


11: 


CMPB 


025, RO j 


1 mCNTL U-? 


626 


0O3650 


0O1436 






BEG 


6* t 


l i U NE , NO 


62 7 


003652 


122700 


00017 7 


i'Ii 


CHPB 


•1/7. RO j 


j i«OF.t ETE> ? 


626 


0O3656 


001016 






BNE 


41 j 


l j IF NE , NO 


6c" 1 9 


0O36to0 


005737 


007162 




TST 


RUBFLG i 


1 |F IRST RUBOUT? 


650 


003664 


001005 






BNE 


3* i 


j I IF NE, NO 


631 


003666 


010637 


007162 




MOV 


SP.RUBfl.i; 


\ (FLAG RUBOUT MODE 


632 


003672 


012700 


00005 7 




MOV 


• '/.RO , 


ttPRINT ■'/■■ 


653 


003676 


0O4712 






CALL 


SR2 i 


I I 


6 3-* 


003/00 


020127 


007026 


31: 


CMP 


R1,«<BBU*F i 


wFULL LINE OEILTI.D/ 


635 


003704 


001454 






3fQ 


INP..I j 


I i IF EQ, YES 


M6 


005/06 


114100 






MOVH 


(Rl).RO 


UjNO, REMOVE CHARACTER 


65/ 


003710 


004 712 






CALL 


MR 2 j 


l »ANO ECHO IT 


638 


005712 


0004 51 






BR 


TNP..F, i 


I lUAIT FOR NEXT INPU1 


6 59 


005714 


005737 


007162 


4*j 


TST 


RUBFLG i 


1 \ RUBOUT MODE / 


640 


005/20 


001407 






BEU 


r >* I 


I ilF tQ, NO 


64 1 


00 3 722 








PUSH 


RO i 


HIES, SAVE CURRENT INPUT 


60.' 


00 3/24 


012/00 


00005 / 




MOV 


•' ',R0 j 


u NO Of RUNOUT 


64 3 


003 7 30 


004 712 






CAU 


&U i 


nECHO •'■'•' 


M4 


00 5/52 


005037 


U07Mm2 




CI R 


RUHFLG \ 


l |Ht 51 T RUNOUT MOUt F I A<>. 


645 


003/56 








POP 


RO i 


I itil I CURRENT INPUT AGAIN 


646 


003/40 


QQ4/W 




S*; 


CALL 


filRJ i 


lltCMU IT 



SEU 66 



C(. 



UC1I B TFST 



64fl 
h4*> 
bi>0 
6M 

tiS4 
b5^ 
b r i6 

bsy 

6S9 



005 74 J 
005 744 
003/46 
003752 
003 7S4 
003 760 
005 7b? 
003 766 
003 7 7c 1 
003 7 76 
004002 
00400b 
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110021 
000414 
012700 
004712 
012700 
004 712 
00503 7 
012701 
004 75? 
010157 
116100 
000207 



000136 

00012b 

007102 
007026 
00613b 
00 7146 
177777 



6$ 



7* 



1NP..E 



SEQ 67 



MOVB 


R0,(R1)» in 


BR 


INP..E in 


MOV 


0136,R0 in 


CALL 


SR2 i ii 


MOV 


<ru,RO in 


CALL 


SR2 in 


CLR 


RUBKLCi i i i 


MOV 


okbbuff.ri mi 


CALL 


I..PRO in 


MOV 


Rl.KBBPNT in 


MOVB 


KRl),RO hi 


RETURN 




.OSADL 


LSU 



SAVE IN IPUT BUFFER 

WAIT FOR NEXT INPUT 
ECHO "t" 

ECHO "U" 
it 

LEAVE RUBOUT MODF 

RESET INPUT BUFFER POINTER 

PROMPT FOR INPUT 

SAVE POINTER 

SAVE LAST CHARACTER 

RETURN TO CALLER 



K?ttl B 



TEST 



De. 
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SHU 68 



661 








.SBTU. 


*. .IAY 




662 






j » 








66 5 
664 

665 






i SUBROUTINE: 


1. .IAY 
















666 
66 * 

66i5 






j LEGAL 


INPUT TYPES ARE j 










ERR- 


FOR 


ERROR -HANDLING 


66^ 








DMP- 


FOR 


CORE DUMP OPTIONS 


6/0 








SET- 


FOR 


DEBUGGING OPTIONS 


6:i 








NONFORMATTED INPUT 1 


r 0R SPECIAL REQ. 


675 






! INPUT : 


(SP)» 


RETURN PC 




6 74 
675 

6 76 

^ '' '? 






j OUTPUT 


: 


NONE 








\ AUTHOR 


» 


BERT HU6ER, 


CSS/DP MUNICH 28-JUN 76 


6 78 








i.PSECT 


CSSMON 




679 








.ENABL 


LSB 




650 004010 


122711 


000015 


* . . IAY : 


CMPB 


015, (Rl) 


j i i<CR>? 


681 004014 


001440 






BEQ 


IAY..E 


Ill IF EQ., SKIP ANALIZATION 


682 004016 


005737 


007174 


3$: 


TST 


*.$ASF 


MtDONT ANALYZE IF ASCII INPU 


683 00402? 


001035 






BNE 


IAY, .E 


j ii IF NE, YES. 


684 004024 


122711 


000104 




CMPB 


O'D.(Rl) 


1 U'OMP" REQUESTED? 


685 004030 


001003 






BNF 


1$ 


uiIF NE, NO 


686 004032 


004 73 7 


004210 




CALL 


1, .IAD 


l ; jANALIZE OiJMP REQUEST 


68/ 004036 


00042? 






BR 


IAY. .E 


1 } i RE TURN TO CALLER 


688 004040 


122711 


000123 


1$: 


CMPB 


0' S.BR1 


1 I i'SET" REQUESTED? 


689 004044 


001003 






BNE 


2$ 


1 1 IF NE, NO 


690 004046 


0O4737 


00440? 




CAl [ 


t , . TA r i 


j hANAI Y7E SET REQUEST 


691 004052 


000421 






BR 


IAY. .E 


1 i( St TURN TO CALLER 


692 004054 


1227U 


000105 


2*t 


CMPB 


OF, SRI 


1 n "ERR" -REQUEST? 


693 004060 


001003 






BNE 


41 


i 1 1 IF NE , NO 


694 004062 


004737 


0044 72 




CALL 


I . . IAE 


II (ANALYZE ERROR RFQUEST 


695 004066 


000413 






BR 


IAY. .E 


1 i j RETURN TO CALLER 


696 004070 


1227U 


000101 


4$: 


CMPB 


0' A.aRl 


i i i"AB0" REQUESTED 7 


69/ 004074 


001003 






BNE 


51 


l j i IF NE , NO 


698 0040 76 


0O4737 


004120 




CALL 


1. .IAA 


i i j ANALYZE ABO -REQUEST 


699 004 102 


000405 






BR 


iai . .*■: 


j i j RE TURN TO CALLER 


700 004104 


005737 


007156 


5*: 


TST 


INPREQ 


MjNO SYNTAX ERROR IF SPECIAL 


701 004 UO 


001002 






BNE 


IA1..E 


j j j •• 


702 004112 


OC4/3 7 


006262 




CALL 


J. .STX 


1 USYNTAX -ERROR 


703 004116 


000207 




IAt..fc: 


RETURN 




{ i iRETURN TO CALLER 


704 








.DSAUL 


LSB 





RUNNING 



INPUT RUNNING 



E6 



IfcCll-B 

706 
70 7 

708 

710 

711 
712 
71? 
714 

715 

716 
717 
718 
71* 
720 
721 

• t. c. 

723 
724 
725 
726 
72? 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
74 7 
748 
749 
750 
751 
752 



TttST 
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SEQ 69 



.SBTTl. J..IAA 



5 



SUBROUTINE: 



I. .IAA 



LEGAL INPUT IS "ABO- 



INPUT; 
OUTPUT 



MZ001 



NONE 

IF IN THE PROGRM THE LABEL •*"$.. SPC '"* IS USED, 

THE STACK WILL BE INITIALIZED AND A JUMP TO 

THIS LABEL IN THE DEVICE TEST PROGRAM IS PERFORMED . 

IF THIS LABEL IS NOT USED, THE STACK IS INITIALIZED 

AND A JUMP TO THE BEGIN OF THE DEVICE -TEST PROGRAM 

IS PERFORMED. 



THE MACRO "PSET "ALLOWS TO RUN THE CDM EITHER ON PDP 
OR ON LSI, 



AUTHOR: 



M. ZILLER, 



004120 
004122 
004130 

004134 



004140 
004164 
004170 
004172 
004176 
004200 
004206 



000005 
012706 
012746 



001204 

012010 



5 .PSECT CSSMON 
.ENABL LSB 
$.,IAA: RESET 

SET6 &OTKS 

MOV OSTART.SP 

.IF DF $. .SPC 

MOV 0$, .SPC.-CSP) 

.ENDC 

. IF NOP * . . SPC 



012700 
005020 
02002 J 
001374 
012737 
0Q02O7 



007026 
007202 
007026 007146 



1$ 



MOV 

.ENOC 

PSET 

MOV 

Cl.R 

CMP 

ONE 

MOV 

RETURN 

.DSABL 



VKTDM. .E.-(SP) 

00 

OKBBUFF.RO 

(Ron 

RO.0PROMES 

II 

OKBBUFF.KBBPNT 

ISB 



CSS/DP MUNICH OCT. 1976 

j STOP ANY ACTIONS 

j SWITCH ON m -INT. 
{INITIALIZE STACK 

jSET THE lABEL ""*..SPC"" FOR DESTINATION 

jSET END OF MONITOR FOR DESTINATION 

jCLEAR PS jMZOOl 

j RESET BUFFERS 

i 

t 

l 

{REBUILD BEGTN ADDRESS 

{GOTO POINT OF CONTINUATION 



F6 



IEC11-B 
$ . . IAA 



or 



TEST 



754 
55 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

7b 7 

768 

769 

770 

771 

7 72 

773 

7/4 

775 

7 76 

7 77 

778 

7 79 

780 

781 

78c? 

783 

784 

785 

786 

787 

788 

789 

790 

791 

79? 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 



004210 
004212 
004216 
004220 
004224 
004226 
004232 
004234 
004240 
004242 
004246 
004250 
004256 
004262 
004264 
0042/4 
0042 76 
004302 
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SEQ 70 



005201 
122127 
001027 
12212 7 
001024 
122127 
001021 
004 737 
103416 
105737 
100375 
012737 
105737 
100375 

000402 
004737 
000207 



1 .PSECT CSSMON 

.SBTTL *..IAD 
SUBROUTINE : $ . . IAD 



MZ001 



• a 1 m a 



MODIFICATION 
TO COMPLETE, 



TO ALLOW THE <CR> AFTER INPUT 



THIS SUBROUTINE IS ENTERED WHEN A DUMP -REQUEST IS ANALYZED. 
DEPENDING ON HOW THE REQUEST IS TERMINATED, THERE ARE TWO 
WAYS FOR RETURN: 



A) 
B) 



WHEN TERMINATED BY <CR> THE CONTENT OF A LOCATION IS 

PRINTED AND THE RETURN IS PERFORMED 

WHEN INPUT IS TERMINATED BY A ""/""THE MONITOR WAITS 

FOR INPUT AND LOADS THIS INPUT INTO THE EXAMINED LOCATION 



INPUT 
OUTPUT 

AUTHOR: 



CSP) -RETURN ADDRESS 
MODIFIED LOCATION IF REQUESTED 

M, ZILLER, SS/DP MUNICH 



OCTOBER 1976 



000115 

000120 

000057 

004 304 

177564 

000012 
17 7564 

006262 



I - 



J. .IAD; 



177566 



11* 



12$ 



7/$: 
IAD. .Ei 

1 



}. PSECT 

.ENABl 
INC 
CMPB 
BNE 
CMPB 
BNE 
CMPB 
BNE 
CALL 
BCS 
T^TB 
H 

MUV 
TSIB 
BPL 
DUMP 
BR 

CALL 
RETURN 



O'M 



<V / 



LSB 
Rl 

CRD 

77 J 

(Rl) 
77$ 
(RD 
77* 

$, .NOR 
77* 

a«TPs 
11* 

012.3OTPB 

aoTPS 

12$ 

OCT,(RO) 
IAD. A 



$ 



TX 



{POINT 


TO "M" 




lIS IT 


A "M" 




{NO IF 


NE 




j IS IT 


A "P" 




jNO IF 


NE 




{IS IT 


A -/'• 




;N0 IF 


NE 




jRETRIFFE INPUT 




lIS CS 


, INPUT FORMAT 


ERROR 


lIS THE <CR> FINISHED ? jMZOOl 






jMZOOl 


{PRINT 


A <LF 




{DONE 


? 




{WAIT FOR COMLETION 






j AND PRINT 




jGO TO 


END 




{WRITE 


SYNTAX ERROR 


MESSAGE 


jRETURN TO MAIN 





G6 



IF.CH -B TEST 
$,,IAD 



807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

84? 

843 

844 

843 

846 

84 7 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

86? 

863 
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SF.Q 71 



004304 
004306 
004312 
004316 
0C4520 
004324 
004326 
004332 
004 334 
004340 
004342 
004 344 
004346 
004350 
004352 
004354 
004356 
004362 
004364 
004370 
004372 
004374 
004 376 
004400 



004402 
004404 
004410 
004412 
C04416 
004420 
004424 
004426 
0044 32 
004 4 34 
004440 
004444 
004446 
004452 
004454 



005000 
012702 
121127 
001425 
121127 
001422 
142711 
100421 
121127 
101016 
006300 
006300 
006300 
152100 
005302 
001356 
121127 
;1403 
123 127 
001002 
000241 
000207 
0C0261 
000207 



005201 
122127 
001024 
122127 
001021 
122127 
001016 
004 fit 
103413 
010037 
122127 
001006 
004737 
103403 
01007V 



000006 
000015 

000057 

000060 

000007 



000015 
000057 



000105 

000124 

000057 

0D4 304 

0044 70 
000057 

004 304 

000010 



THIS IS THE ROUTINE GET THE OCTAL VALUE OF THE ADDRESS 



$. .NOR: 
IS; 



NOR . , F 



CLR 

MOV 

CMPB 

BEQ 

CMPB 

BEQ 

BICB 

BMI 

CMPB 

BHI 

ASL 

ASL 

ASL 

BISB 

DEC 

BNE 

CMPB 

BEQ 

CMPB 

BNE 

CLC 

RETURN 



RO 

06, R2 

BR1.015 

NOR , . E 

BR1,#* / 

NOR . . E 

460, QR1 

NOR.ER 

SR1.07 

NOR.ER 

RO 

RO 

RO 

(R1)*,R0 

R2 

1$ 

QR1.015 

NOR. .E 

SR1.0* / 

NOR.ER 



NOR.ERj SEC 



RETURN 



CLEAR STORAGE OF NUMBER 
CLEAR DIGIT COUNTER 
IS IT A TERMINATOR ? 
IF EQ, YES 



BUILD REAL BINARY 

IF MI, IT WAS LOWER THAN 60 

IS IT REAL OCTAL ? 

IF HI, NO REAL OCTAL 

MULTIPLY 

WITH 10 IN 

OCTAL 

SET THE TRUE BITS 

COUNT DIGITS BUILT 

ALL DONE? 

IS THE LAST ♦ 1 BYTE A TERMINATOR? 

IF YES THEN SYNTAX OK 

TERMINATOR IN SET COMMAND? 

IF NOT THEN SYNTAX ERROR 

INDICATE SUCCESSFUL OPERATION 

i INDICATE FAILURE 



SUBROUTINE 



*, .IAS 



THIS SUBROUTINE IS ENTERED IF THE INPUT ANALYZER DETECTS A SET -COMMAND 

RETURN ADDRESS 

BEGIN OF INPUT STRING 



»..IASi 



INPUT; 


CSP) - RE 




Rl 


OUTPUT: 


a 


INC 


Rl 


CMPB 


CR1 )♦ ,*'E 


BNE 


76$ 


CMPB 


c r n ♦ , ' T 


BNE 


76$ 


CMPB 


(Rl)* ,<?'/ 


BNE 


76$ 


CALL 


$ , .NOR 


BCS 


/6$ 


MOV 


RO . 2 $ 


CMPB 


(Rl). ,<r / 


BNE 


76$ 


CAlt 


$. .NOR 


BCS 


/6$ 


MOV 


R0.U2* 



MODIFIED LOCATION 



"E 



[POINT TO 

iCORRCCT 

j NO IF NE 

{CORRECT SYNTAX ? 

I NO IF NE 

; CORRECT SYNTAX ? 

j NO IF NE 

iBUll.D ADDRESS TO MODIFY 

lit CS, FORMAT ERROR 

» SAVE 

j CORRECT SYNTAX > 

I NO IF NF 

;BUIl DATA TO INSERT 

j V CS. EQRMAT ERROR 

j AND LUAD 



l u Ak 



R TfST 
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"lb 



SEQ 72 



8^4 
86 5 

86h 
86? 
868 



004460 
00446^ 
004466 
004470 



00040,2 
004757 

00020 7 
000000 



00626? 



76 i: 

IAS..fc: 

2ti 



BR 
CALL 

RETURN 

.WORD 

,DSABL 



IAS. ,t 
t. ,STX 


! SB 



iGO TO END 

j UP 1TI- ERROR 
j RE TURN 



ML 



iSORAGE FOR 



ADDRESS 



TO MODIFY 



16 



IFC11-B 


TEST 


MACRO M1?00 3C 


*..IAU 








870 








8/1 








8/2 








8/3 








874 








875 








8/6 








h// 








8/tf 








B/ 1 * 








880 








881 








88? 








88? 








884 








885 








886 








88/ 








888 








889 








890 








891 








89? 








893 








894 








895 








896 








89/ 








898 








899 








900 








901 








90? 


0044 7? 


01060? 




903 


0044 74 


01? 703 


007160 


904 


004 5u0 


005004 




90S 


004502 


06? 701 


000003 


906 


004506 


122127 


000075 


90/ 


00451? 


001137 




908 


004514 


122127 


000057 


909 


004520 


0O1403 




910 


0045.72 


00570? 




9U 


004524 


00113? 




91? 


004526 


000526 




913 


004530 


00500? 




914 


00453? 


005?04 




91 S 


004534 


121127 


00U116 


916 


004540 


00100? 




91 / 


004 54? 


005201 




918 


004544 


005004 




919 


004546 


121127 


000123 


4?0 


00455? 


001426 




9?1 


004554 


12112/ 


OOulO* 


92? 


004560 


00145/ 




9? 3 


00456? 


12112/ 


000110 


9?4 


004 566 


0014/? 




9? 5 


0045/0 


12112/ 


000120 


92b 


004 574 


001106 
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SEQ 73 



S8TTL *.,IAE 



I. .IAE 



i SUBROUTINE: 

i " -■-■■-■«- --..-. 

j THIS ROUTINE CHECKS THE CORRECT SYNTAX OF 
AN "ERR M - INPUT STRING AND PROCESSES THE 
REQUESTED ' 5WITCHRFGISTER -OPTIONS' . 



LEGAL SWITCH 


OPTIONS 


/HT 


•» 


/NH 


« 


/PR 


H 


/HP 


» 


/CT 


m 


/NC 


■ 


/sc 


H 


/NS 


M 


/CUNT 


■ 


INPUT : 


Ml 


OUTPUT : 


BIT S 



ARE 



HALT AFTER ERROR (DEFAULT) 

NO HALT AFTER ERROR 

DRINT ERROR MESSAGE (DEFAULT) 

INHIBIT ERROR PRINTOUT 

COUNT ERROR 

NO ERROR COUNTING (DEFAULT) 



SCOPE LOOP ON 
NO SCOPE LOOP 



THIS ERROR 
(DEFAULT) 



AUTHOR: 



IMMEDIATE CONTINUE SWITCH 



•START ADDR.OF TEXT STRING 
SETUP IN SOFTWARE SWITCH REGISTER 

BtRT HUHER, CSS/DP MUNICH 28-JULY-76 



$ . . IAE 



1$ 



3$ 



? .PSfcCT 

.ENABL 

MOV 

MOV 

CLR 

ADD 

CMPB 

BNE 

CMPB 

BEU 

TST 

RNF 

BR 

CIR 

INC 

CMPB 

BNE 

INC 

CLR 

CMPB 

BEQ 

CMPB 

BEU 

CMPH 

\\\ U 

CMPB 

BNE 



CSSMON 
I. SB 
5P , R? 

0PSDSWR.R3 
R4 

03, Rl 
(Rl)*,<r • 
77$ 

(Rl)*,«* / 

2$ 

R2 

7M 

11$ 

R? 

R4 

(HI ),#*N 

M 

Pi 

R4 

( R 1 ') ♦ t> • 5 

5* 

<R1),#'C 

M 

I R 1 ) , ' H 

9i 

CR1 ),0'P 

l't% 



FLAG FOR VERY FIRST CHARACTER 

GET ' 5WR" ADDRESS 

USE AS 'CHARACTER 1' 

SKIP IDENUFYFR 

CORRECT SYNTAX? 

BRANCH IF NOT 

IS NEXT O'AR. A ' /' 

IF EQ, YES 

WRY FIRST? 

IF >FS: S V 'NTA'> ERROR 

ASSUME END Of STRING 

NO LONGER VERY f IRST 

SET FOR »C1' FLAG 

IS IT THE ' /N" OPTION? 

BRANCH If NOT 

ADVANCE TO NE.XT CHARACTER 

RE St I CI' FLAG 

IS IT A « S' ? 

BRANCH IF YhS 

IS IT A C" V 

BRANCH If lES 
IS IT A ' H ' .' 

BRANCH If j|S 
15 IT A P .' 
If NO: SYNTAX ERROR 



J6 



tt'Cll B 
$ . . IAt- 


TFST 
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92/ 


0045/6 


005704 






TST 


R4 ; i 


,IS IT A *P' ? 


928 


004600 


001004 






BNE 


4* { ; 


: BRANCH If YES 


929 


00460? 


052/13 


040000 




BIS 


0BIT14,(R3) it 


{SET SR-BIT FOR /NP 


930 


004606 


005201 




30$: 


INC 


Rl U 


j ADVANCE TO NEXT CHARACTER 


951 


004610 


000741 






BR 


11 M 


, CHECK FOR NEXT SWITCH 


9?? 


00461? 


005201 




4$: 


INC 


Rl n 


jNEXT CHARACTER 


933 


0046V 4 


122127 


000122 




CMPB 


(R1)»,#'R it 


iIS IT A '/PR' ? 


934 


004620 


001074 






BNE 


77$ »» 


1 IF NO: SYSNTAX ERROR 


935 


004622 


042713 


040000 




JIC 


OBIT14.CR3) ii 


jSET '/PR' -OPTION 


936 


004626 


000/32 






BR 


1* u 


j CHECK NEXT SWITCH 


937 


004630 


005704 




T>$: 


TST 


R4 , { 


iIS IT 'S/' ? 


938 


004632 


001003 






BNE 


6$ n 


} BRANCH IF YES 


939 


004634 


042/13 


100000 




B1C 


0BIT15,(R3) ,i 


I SETUP FOR '/NS* OPTION 


940 


004640 


000762 






BR 


30* u 


j TRY NEXT 


941 


004642 


005201 




6$: 


INC 


PI ii 


j NEXT CHARACTER 


942 


004644 


122127 


000103 




CMPB 


(R1)»,«'C ii 


iIS IT A'/SC ? 


94 3 


004650 


001060 






BNE 


77$ ,, 


;IF NO: SYNTAX ERROR 


944 


004652 


052/15 


100000 




BIS 


0BIT15.CR3) n 


(SETUP FOR « /SC* OPTION 


94 5 


004656 


000/16 






BR 


1$ ii 


jCHECC NEXT SWITCH 


946 


004660 


126127 


000001 000117 


7$: 


CMPB 


UR1),»'0 i; 


{CHECK FOR ' /CONT* 


94 7 


004666 


001016 






BNE 


70$ } | 


♦ IF NE t OTHER 


948 


004670 


126127 


000002 000116 




CMPB 


2(R1),0*N i; 


; CHECK FOR 5 /CONT' 


949 


004676 


001045 






BNE 


77$ w 


lIF NO: SYNTAX ERROR 


950 


004 700 


126127 


000003 000124 




CMPB 


3(R1),*'T j| 


j CHECK FOR ' /CONT' 


951 


004 706 


001041 






BNE 


77$ j j 


I IK NO: SYSNTAX ERROR 


952 


004710 


052737 


004000 007160 




BIS 


aeiTll.PSCSWR ;; 


iSET 'IMMEDIATE CONTINUE' 


953 


004716 


062701 


000005 




ADD 


05. Rl a 


{ADJUST POINTER 


954 


004722 


000430 






BR 


11$ ii 


jEND THIS SCAN 


955 


004724 


005/04 




70$: 


TST 


R4 i ; 


;IS IT A ' /CT' ? 


956 


004726 


001003 






BNE 


8$ M 


j BRANCH IF YES 


957 


004 730 


042/13 


020000 




B1C 


«BlTi3,(R3) ij 


{SETUP FOR ' /NC -OPTION 


958 


004 734 


000 724 






BR 


30$ t; 


{TRY NEXT SWITCH 


959 


004 7 36 


005201 




8$: 


INC 


Rl II 


{ADVANCE TO NEXT CHARACTER 


960 


004 740 


122127 


000124 




CMPB 


IR1)*,#'T i: 


j IS IT A'/CT' OPTION ? 


961 


004 744 


001022 






BNE 


77$ M 


t IF NO: SYNTAX ERROR 


96? 


004 746 


052713 


020000 




BIS 


0BIT13,(R3) ti 


{SETUP FOR ' /CT' OPTION 


963 


004 752 


000660 






BR 


H ii 


{CHECK NEXT SWITCH 


964 


004754 


005 704 




9$: 


TST 


R4 j i 


iIS IT '/HT' ? 


965 


004 756 


001003 






BNE 


10$ j ; 


{BRANCH IF yES 


^66 


004 760 


052713 


010000 




BIS 


»0IT1?,(R3) i; 


{SETUP FOR ' /NP' OPTION 


96 7 


004 764 


000/10 






BR 


30$ j { 


{TRY NEXT SWITCH 


968 


004/66 


005201 




10*: 


INC 


Rl u 


{ADVANCE TO NEXT CHARACTER 


969 


004 7/0 


122127 


000124 




CMPB 


(RDsO'T ;j 


iIS IT A ' /HT 1 ; 


9/0 


004 / /4 


001006 






BNE 


77$ j; 


;IF NO: SYNTAX ERROR 


9/1 


004 7 76 


042/13 


010000 




BIC 


0BIT12.CR3) j j 


I SETUP FOR ' /HT' OPTION 


9/2 


005002 


000644 






BR 


3$ n 


5 TRY NEXT SWITCH 


9/3 


005004 


12412/ 


000015 


11$: 


CMPB 


I HI) ,01b It 


{WAS I AST BYTE A <CH»V 


9/4 


005010 


001402 






BFQ 


IAK.J- ii 


{BRANCH U YES 


9/5 


oosoi? 


00473/ 


006262 


7 / $ : 


CALL 


$..STX { | 


{SYNTAX ERROR 


9 /6 


005010 


000207 




IAt. 


.£: Rf TURN 


MiREIURN TO CALLER 


V77 










,DSABL 


LSB 





SEQ 74 



Kb 



Ib.CU -B 
*..RFO 

9/9 

980 
981 
983 
98 3 
934 
98 r » 
986 

98 7 
988 
989 
990 
9Q1 
99.? 
995 
994 
9^1 
996 

99 7 
998 
999 

1000 
1001 
100? 
1005 
1004 
100S 
1006 
1007 
1008 
1009 
1010 
1011 
1013 
1015 
1014 
10 IS 
1016 
1017 
1018 
1019 

1030 

1031 
1035 

lo<:4 

103S 
1036 
3 03 / 
1038 
1039 
1050 
1051 
1033 
10 3 5 
10 34 
103S 



test 
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.SBTTL 



SEQ 7!5 



{SUBROUTINE 



$. .RED 
*, .RED 



j**.** ABOO 

i THE CARRY BIT IS SET IF A ZERO OCTAL INPUT (ONLY CR,NO DATA) 

$ HAPPENS 

5 

♦THIS SUBROUTINE HANDLES ALL TYPES OF" SPECIAL INPUT REQUESTS 
i SETUP BY THE PROGRAMMER THROUGH A ' READ ' MACRO. 
l LEGAL INPUT TYPES THAT CAN BE HANDLED ARE: 



;BINARY FORMAT CEX: 1001101101010001) 

•INPUT CAN BE UP TO 16-DIGITS OF THE FORM OH 1 . 
I LESS THAN 16 DIGIT INPUT IS FILLED UWITH LEADING 
; INPUT IS RETURNED IN RO, 
{THE PREVIOUS CONTEND OF RO WILL 3E OVERWRITTEN. 

{OCTAL FORMAT CEX: 176523) 

\ INPUT CAN BE UP 10 6 DIGITS OF THE FORM 0-7. 



ZEROES 



l.fr.FTMOSTCHlGH ORDER) 
(LOW ORDER )B1T. 
LEADING ZERO DIGITS 



i IN CASE OF A 6-DIGIT-WIDE INPUT, THE 

{DIGIT IS TRUCTATED TO THE RIGHTMOST 

j IN CASE OF LESS THAN 6 DIGITS INPUT 

{ARE INSERTED. 

iTHE RESULT IS RETURNED IN RO.HEREBY OVERWRITING 

iTHT PREVIOUS CONTENT OF RO. 

[DECIMAL FORMAT CEX: 96005) 



; INPUT CAN BE UP TO 5 DIGITS OF THE FORM 0-9. 

{LESS THEN FT^ OIGITS INPUT ARE FILLED UP WITH 

{LEADING ZEROE DIGITS. 

: MAXIMUM NUMBER ALLOWED IS 336S6. 

;INPUT IS RETURNED IN RO, HEREBY OVERWRITING THE 

{PREVIOUS CONTENT OF RO. 

(ASCI FORMAT CEX: B6T*6L) 
; - - - 



ASCII CHARACTER. 

IS REQUESTED, UP TO 80 



{INPUT CAN BE ANY LEGAL 

{IF INPUT INTO A BUFFER 

•CHARACTERS CAN BE INPUT 

I U INPUT RETURN IN RO IS REQUESTED . ONE 1 THE 

{CHARACTER WILL BE RETURNED IN THE LOW ORDER 

j OF RO. 

{OLD CONTEND OF RO 

;l> THE ONI Y INPUT 

{AS WELL AS IN \Hl. 



F IRSr 
BYTE 



IS OVERWRITTEN IN THIS CASE. 

LS sCR>, ZERO WILL BE RETURNED IN RO 
FIRST BYTE OF THE SPECIFIED BUFFER. 



005020 004737 006136 



•AUTHOR: 
S..RED: CALL 



BERT HUBER. CSS/DP MUNICH 

* . .PRO {PRINT PROMPT 



39 JKN-76 

STRING 



Lb 



IECH-B 


TEST 


MACRO M1200 30-MAR-84 


$. .RED 








1036 


005024 


010637 


007156 


1057 


005030 


026627 


000002 000004 


1038 


005036 


003402 




1039 


005040 


010637 


007174 


1040 


005044 






1041 


005044 


005737 


007150 


104? 


005050 


001375 




1043 


005052 






1044 


005064 


012701 


007026 


1045 


005070 


016602 


000014 


1046 


005074 


000172 


005100 


104 7 


005100 


005112 




1048 


005102 


005270 




1049 


005104 


005504 




1050 


005106 


005444 




1051 


005110 


005464 




1052 


005112 


005000 




1053 


005114 


005037 


005244 


1054 


005120 


121127 


000015 


1055 


005124 


001014 




1056 


005126 






1057 


005140 


011666 


000002 


1058 


005144 


005726 




1059 


005146 


00503 7 


007156 


1060 


00515? 


000261 




1061 


005154 


000207 




1062 


005156 


006300 




1063 


005160 


006300 




1064 


005162 


006300 




1065 


005164 


023727 


005244 000006 


1066 


00517? 


001406 




1067 


005174 


121127 


000060 


1068 


005200 


103403 




1069 


005202 


121127 


000067 


1070 


005206 


101412 




1071 


005210 






1072 


005220 






1073 


005232 


000672 




.1074 


005234 


142711 


000060 


1075 


005240 


152100 




1076 


005242 


005227 




1077 


005244 


000000 




1078 


005246 


121127 


000015 


1079 


005252 


001341 




1080 


005254 


023727 


005244 OO0OO1 


1081 


005262 


001001 




108? 


005264 


000261 




1083 


005266 






10H4 


005266 


00055 7 




1085 


0052/0 


005000 




1086 


0052 /2 


005004 




1087 


005274 


122721 


000015 


1088 


005300 


00140? 




1089 


00530? 


005204 




1090 


005304 


0007 7 3 




1091 


005306 


012/01 


00/026 


1092 


005312 


020427 


000005 
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MOV 
CMP 

BLfc 

MOV 



SEQ 76 



100$ 
1$: 



2$ 



*, .OCTj 



3$ 



4$ 



5$ 



6$ 



7$ 



*. .DEC 



1$ 



2$ 



TST 

BNE 

PUSH 

MOV 

MOV 

JMP 



.OCT 
.DEC 
.BIN 
,BUF 

J. .ASC 

CLR 

CLR 

CMPB 

BNE 

POP 

MOV 

TST 

CLR 

SEC 

RETURN 

ASL 

ASL 

ASL 

CMP 

BEQ 

CMPB 

BLO 

CMPB 

BLOS 

URITE 

POP 

BR 

BICB 

BISB 

TNC 
.WORD 

CMPB 

BNE 

CMP 

BNE 

SEC 

BR 

CI R 

CLR 

CMPB 

BEQ 

INC 

BR 

MOV 

CMP 



SP.INPREQ 
2(SP),04 

100$ 
SP,$.$ASF 

INFLAG 

1$ 

R1,R2,R3,R4,R5 

#KBBUEF,R1 

i4(SP),R2 

bJ2$(R2) 



RO 

6$ 

SRI, #15 

3$ 

R5.R4.R3.R2.R1 

CSP),2(SP) 

(SP)* 

INPREQ 



RO 

RO 

RO 

6$ ,06 

4$ 

SRI ,#60 

4$ 

UR1.967 

5$ 

MILOCT 

R5,R4,R3.R2,R1 

*. .RED 

#60, SHU 

(Rl)» ,R0 

(PC)* 



aRi,#i5 

3$ 

6$, 01 
7$ 



RK1 . . E 

RO 

R4 

#15,(R1)» 

2$ 
R4 

1* 

#KBBUKF,R1 
R4 , #5 



j SET SPECIAL REQUST FLAG 

I DETECT SPECIAL ASCII INPUT RUNNING 

jNO ASCII INPUT 

j SET SPECIAL ASCII INPUT FLAG 

{WAIT FOR INPUT COMPLETE 



SAVE REGS 

GET INPUTPIONTER 

GET TNPUTMOFE INDICATOR 

.ECT REQ. INPUT 
HANDLE OCTAL INPUT 
HANDLE DECIMAL INPUT 
HANDLE BINARY INPUT 
HANDLE ASCII INPU! INTO 
HANDLE ASCII INPUT INTO 
CLEAR INPUT POINTER 
RESET COUNTER 
ZERO INPUT 7 
IE NE. SKIP 



BUf-FER 
BUFFER 



***ABO0 
♦**ABO0 
***A800 
♦**AB00 
♦♦♦ABOO 
***ABOO 
ADJUST 



RESTORE 
REAJUST 



GEN. REGISTERS 
RETURN ADDRESS 



RESET SPECIAL REQUE5J COUNTER 
SET CARRY AS ZERO INPUT INDICATOR 
AND GO BACK TO CALLER 
NPUT CHARACTER 



HANDLED ? 
6 DIGITS INPUT 
DIGIT ? 



INPUT 
SEQUENCE 



j ALL INPUT 

j MORE THAN 

{LEGAL OCTAL 

{IF LO, NO 

{LEGAL OCTAL DIGIT ? 

{IF LOS t YES 

{ILLEGAL OCTAL 

{RESTORE REGS 

{RESTART INPUT 

{BUILD RTNARY 

{INSERT IN 10 BUFFER 

{COUNT INPUTS HANDLED 

{DIGIT COUNTER 

{END OF INPUT DETECTED? 

{ IF NE , NO 

{SET CARRY IF ONLY CR WAS 

{SET CARRY 

{END Of INPUT 

{CLEAR TRANSFER BUFFER 

{RESET COUNTER 

jEND OF INPUT ? 

i U E.Q. YES 

{DIGIT COUNTER 

jCEEP COUNTING 

{SET INPUT HU>ER POINTER 

{MORE THAN 5 DIGITS ? 



THE INPUT 



M6 



ie.cn b 


TEST 


MACRU M1200 30 


-MAR-84 


$,.RED 










1095 


005316 


101412 






1094 


005320 








1095 


005330 








1096 


005342 


000626 






1097 


005344 


005704 






1096 


005346 


001527 






1099 


005350 


006304 






1100 


005352 


016402 


005360 




1101 


005356 


000406 






1102 


005360 


000000 


000001 


000012 




005366 


000144 


001750 


023420 


1103 


005374 


006204 






1104 


005376 


005003 






1105 


005400 


112103 






1106 


005402 


020327 


000060 




1107 


005406 


103744 






1108 


005410 


020327 


000071 




1109 


005414 


101341 






1110 


005416 


042703 


177760 




1111 


005422 


005703 






111? 


005424 


00.1405 






1113 


005426 


000241 






1114 


005430 


060200 






1115 


005432 


103732 






1116 


005434 


005303 






1117 


005436 


001373 






1118 


005440 


005304 






1119 


005442 


000740 






1120 


005444 


122711 


000015 




1121 


005450 


001001 






1122 


005452 


005011 






1125 


005454 


010100 






1124 


005456 


005037 


007174 




1125 


005462 


000461 






1126 


005464 


005000 






112/ 


005466 


005037 


007174 




1128 


0054 72 


122711 


000015 




1J29 


0054 76 


001453 






1130 


005500 


111100 






.1.131 


005502 


000451 






1132 


005504 


005000 






1133 


005506 


005037 


005624 




1134 


005512 


122711 


000015 




1135 


005516 


001443 






1136 


005520 


022/3/ 


000021 


005624 


113/ 


005526 


001013 






1138 


005530 








1 1 39 


005540 








1140 


0.^5552 


00013/ 


005020 




1141 


005556 


121127 


000060 




1142 


005562 


001407 






1143 


005564 


121127 


000061 




1144 


0055/0 


001011 






1145 


0055 /2 


006300 






1146 


0055/4 


052/00 


000001 




114/ 


005600 


0004 01 






ii4a 


005602 


006300 
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3$: 
4$: 

5$: 

6$; 



7$ 



13$ 



$..BUF 



1$ 



$. ,ASC 



S..BIN; 



1$ 



*»$ 



3$ 



BLOS 

WRITE 

POP 

BR 

TST 

BEQ 

ASL 

MOV 

BR 

.WORD 

ASR 

CLR 

MOVB 

CMP 

BLO 

CMP 

BHI 

BIC 

TST 

BEQ 

CLC 

ADD 

BCS 

DEC 

BNE 

DEC 

BR 

CMPB 

BNE 

CLR 

MOV 

CLR 

BR 

CLR 

CLR 

CMPB 

BEQ 

MOVB 

BR 

CLR 

CLR 

CMPB 

BEQ 

CMP 

HNE 

WRITE 

PGP 

JMP 

CMPB 

BEQ 

CMPB 

BNE 

ASL 

BIS 

\m 

ASL 



5EQ 77 



4$ 

MILOEC 

R5,R4,R3,R2,R1 

$. .RED 

R4 

RED. ,E 

R4 

5$CR4),R2 

6$ 



l IE LOS, NO 

{ILLEGAL DECIMAL INPUT 

iREST. REGS 

{RESTART INPUT 

{ZERO DIGIT COUNT ? 

j IF EQ, YES 

{BUILD TABLE OFFSET 

i SETUP CORRECT PARAMETER 

j SKIP TABLE 



0,1,10, ,100, ,1000. ,10000. 



R4 
R3 
(R1)*,R3 

R3,060 

3$ 

R3.071 

3$ 

#177760, R3 

R3 

13$ 

R2,R0 

3$ 

R3 

7$ 

R4 

4$ 

015, CR1) 

li 

(Rl) 

Rl.RO 

$. IASF 

RED. .E 

RO 

*.*ASF 

015, 3R1 
RED . . E 

sri.ro 

RED. ,E 

RO 

6$ 

015, 3R1 

RED. ,E 

017. ,6$ 

2$ 

MILBIN 

R5,R4,R3,R2.R1 

$. .RED 

BR 1,060 ; ZERO 

3? 

BHI 

4* 

RO 

OBI TO 

n 

RO 



{REBUILD R4 CONTENT 
j RESET SAVE BUFFER 
{GET FIRST DIGIT 

{CHECK LOWER DIGIT RANGE 

;IF LO, ERROR 

j CHECK UPPER DIGIT RANGE 

{IF HI, ERROR 

{CONVERT TO OCTAL 

{ZERO DIGIT? 

{IF EQ, YES 

{RESET CARRY 

{BUILD OCTAL NUMBER 

{ERROR IF OVERFLUW 

{ALL DONE? 

j IF NE. NO 

{NEXT DIGIT 



{ZERO 
jSKIP 



DIGIT ? 
IF NOT 



ASCII INPUT FLAG 



D 



061 



RO 



{RESET FIRST INPUT WORD 
{TRANSFER BUFFER ADDRESS 
{CLEAR SPECIAL ASCII FLAG 
{END OF INPUT 

{CLEAR SPECIAL 

{ZERO INPUT 
j IF EQ. 1ES 
;GET FIRST BYTE 
{END OF INPUT 

IrESET COUNTER 
{ZERO INPUT? 
;END OF INPUT 
;T00 MANY DIGITS? 
j IF NE, NO 

{ILLEGAL INPUT MESSAGE 
iREST. REGS 
jRFENTFR 
IGIT ? 
{BRANCH IF- 
{ONE DIGIT 
{BRANCH If 
j AD JUS I 
; INSERT 



YES 
NO I 



TRMNSJ-ER BUFF-ER 
INTO TRANSFER BUFFER 



j ADJUST TRANSFER BUFF- ER 



N6 



IECU B 


Tt r .ST 


MACRO M1200 30 -MAR -84 


16:11 


PAGE 19-3 










$, .RED 




















1149 


005604 


005201 




7$: 


INC 


Rl 




jPOINT TO NEXT INPUT 




1150 


005606 


005237 


005624 




INC 


6* 




j COUNT INPUTS 




1151 


005612 


000742 






BR 


1* 




{CHECK NEXT 




1152 


005614 


121127 


000015 


4$: 


CMPB 


BR1,#15 




lEND OF INPUT ? 




1153 


005620 


001343 






BNE 


5$ 




j NO, ILLEGAL CHARACTER 




1154 


005622 


000401 






BR 


RED. ,E 




i 




1155 


005624 


000000 




6$: 


.WORD 







j COUNTER 




1156 


005626 






RED. 


.&: POP 


R5.R4.R3, 


,R2,R1 


jREST. REGS 




115/ 


005640 


011666 


000002 




MOV 


(SP),2CSP) 


{READJUST STACK RETURN 


ADDRESS 


1158 


005644 


005726 






TST 


(SP)* 




i 




1159 


005646 


005037 


007156 




CLR 


INPREQ 




j RESET SPECIAL REQUEST 


POINTER 


1160 


005652 


00020 7 






RETURN 






{RETURN TO CALLER 





SEQ 78 



B/ 



IECil B 


Tt ST 


MACRO Ml 200 50 


-MAR- 84 


lb! 11 PAGfc 30 






$,,WHT 


















1 162 












.SBTTL 


» . . WR T 




1165 










l * 








1 le>4 

li6<S 
1166 










j SUPROuT INF. ; 


*.,wRr 




















1 16 / 










i THIS ROUTINE IS CALLED TO St T TUP A MESSAGE PRINTOUT ON CONSOLE 


1 li>8 
llb k > 

1 1 /o 










jAll PRINTING IS CONTROLLED BY 


INTERRUPT EXEPT <CR>, <IF>, 










I INPUT j 




2( SP ) 


ADDRESS OK MESSAGE TEXT 


1171 
11/3 

11. '3 
11/4 
1 1^*> 

11 '6 

1 1 • ; 
ii:» 














(SP) 


CALL ER PC 










1 OUTPUT 


• 


MESSAGE 


ON TERMINAL 










j AUTHOR 


: 


BERT HUBE.R C5S/DP MUNICH 30 JUN-76 










jMODIFIED BY: 


JOHN LEVESQUE 


CSS ISG 23 JAN 83 














MODIFICATION REQUIRED TO HANDLE XON AND XQFF 


1180 


















1181 










j - 








118.? 












l.PSECT 


CSSMON 




1.183 












,ENABL 


LSB 




1184 


005654 


005757 


007153 




I..WRT; 


TST 


OUTELG 


tOUTPuT RUNNING ? 


118S 


005660 


001375 








BNE 


I..WRT 


iIE NE, YES - WAIT 


1186 


005663 


005/3/ 


007150 






TST 


INTLAG 


, INPUT RUNNING ? 


1167 


005666 


0013/2 








BNE 


I..WRT 


tlT NE, YES - WAIT 


1188 


0056 /0 


01063/ 


00/152 






MOV 


SP,OUTFLG 


iSET OUTPUTTLAG 


1189 


0056 74 


01662/ 


000003 






MOV 


2(SP).(PC)» 


jGET MESSAGE POINTER 


1190 


005700 


000000 






•..MSPi 


■ WORD 





iMtSSAGE POINTER 


1191 


005702 


012737 


005/36 


000064 




MOV 


011,0064 


iSETUP VECTOR 


119.? 


0057 10 


0127!? 


000340 


0000*6 




MOV 


0340,S06'> 


III 


1193 


005/16 


012616 








MOV 


(SP)-.(SP, 


lUTDATE STACK 


1194 


005/20 


052737 


000100 


177564 




RIS 


OlOO.QOTPS 


jENABLE INTERRUPTS 


1195 


005 726 


005737 


007153 






TST 


OUTFLG 


jOUTPUT RUNNING? j**GS0001* 


1196 


005/33 


001375 








BNE 


. -4 


jir N£ .YES-^UAIT j**U50001* 


119/ 


005/54 


OOO207 








RETURN 




jRETUHN TO CALLER 


1198 


005/36 


12273/ 


000033 


1/7562 


11: 


CMPB 


023,Q0TKB 


j j j CHECK FOR xQf F 


1199 


005/44 


001401 








BEQ 


3$ 


Ml XOF> CONOITION WAIT TO CLEAR 


1300 


005/46 


000404 








BR 


201 


III NO XOf'F THfcN CONTINUE 


1201 


005/50 


12273? 


00002 4 


17 7562 


31: 


CMPB 


021, WOT KB 


1 i » CHECK FOR XON 


1303 


005/56 


001367 








BNE 


11 


1 j 1 NO XON GO WAIT FOR IT 


1203 


005760 








20$: 








1204 


005760 


12772/ 


1/7 714 


000135 




CMPB 


fall. ,MSP,0* ] 


it NO 0* MESSAGE ? 


130S 


005766 


001434 








BEQ 


URT. ,E 


Ill IF F-Q. tES 


1306 


0057 70 


127/2/ 


1/7704 


000133 




CMPB 


St. .MSP.O 1 [ 


I i i <CR> , <l F^? 


120/ 


005 7 76 


O01022 








BNE 


301 


1 i j IF NE , NO 


1308 


006000 


042737 


000 1 00 


17 7564 




BtC 


OlOO.SOTPS 


1 j jDISABIE INTERRUPTS 


1309 


006006 


012737 


000015 


177566 




MOV 


015.S0TPB 


i i litNO <CR> 


1310 


006014 


10573/ 


177564 






TSTH 


SOTPS 


It i WAIT FOR DONE 


1311 


006020 


100375 








BPl 


. 4 


1 1 i 


1313 


006023 


005237 


005 700 






INC 


t. .MSP 


II (POINT TO NEXT CHARACTER 


1313 


006036 


012/37 


000012 


1 //V>6 




MOV 


012.B0TPH 


i i iSENO <IF » 


1314 


006034 


052M7 


000100 


1 7 75M 




H I S 


0100 .SOT PS 


j i jRF ENABl E INTERRUPT 


131S 


006042 


000003 








RU 




MlRrTURN TO MAIN PROGRAM 


1316 


006044 


117/3 7 


1/76 10 


177560 


50*1 


MOVH 


St. ,MSP t hl<?TPB 


1 i i SEND NFxT CHARACTER 


1/1/ 


006052 


OOV3 7 


OOS'/OO 






INC 


K.M5P 


1 i i POINT 10 H\ *T 


1315 


0Q6U r i6 


000OQ2 








RTI 




ill RETURN TO CALLER 



SEQ 79 



ItCU H 


TtST 


MACRO MUHK) 3 


S^WRT 








i.-:i9 


006060 


04? 73/ 


000100 


l.VO 


006066 


005057 


00715? 


i??i 


00607? 


005737 


00 7 170 


1 ,v? 


0O6076 


001410 




1??3 


006100 


005037 


007170 


1J?4 


0001.04 


00503? 


007156 


1.2?5 


006 110 


004737 


003360 


1??6 


006 U 4 


000137 


003520 


lcV ' 


0061^0 


000002 




ia<?s 









c/ 



MAR 64 16:11 PACK. ?0- 



177564 WRT. ,E{ BIC 



4$ 



4100.S<?TP5 



Cl.R 


OUTFLG 


TST 


SPEFLG 


BF.Q 


41 


CLR 


SPFFLli 


CLR 


INPREO 


CALL 


$. .RSV 


JMP 


MSPE 


RTI 




•DSAQL 


LSB 



jDISABLE OUTPUT INTERRUPT 

I RESET OUTPUT FLAG 

(THIS FLAG IS SET ONLY 

iWHEN DURING A PRINTOUT 

I THE <CNTRL C> COMMAND WAS 

jNECCESARY TO INTERRUPT THE 

jRUNNING PRINTOUT 

,N0W NEW SPEC. INPUT IS PROCESSED 

j RETURN TO MAIN PROGRAM 



K-?W 



1^30 

l."31 

li?3^ 
1^53 

1234 
1235 
12*6 
123.' 
1**58 
1239 
1240 
1241 

124 5 
3 244 
1245 
1246 
124? 
1240 
124* 
1250 



U7 



B Tt ST 



MACHO M1200 
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.SBTTl. 


*, ,KBO 


1 SUBROUTINE: 


*. ,KBO 


1 KEYBOARD ECHO 


ROUTINE FOR TEMINAL INPUT 


I INPUT : 


(SP) - CAUER PC 

RO » PATTERN TO fcCHO 


[output j 


PRINT PATTERN TO TERMINAL 


j AUTHOR : 


BERT HUBER CSS/OP MUNICH 



SEQ 81 



0061?.? 
C06126 

006130 
006154 



I0b?37 
1003/5 
01003? 
00020? 



17 7564 
177566 



28-JUN-76 



i.PSECT CSSMON 

.ENABL LSB 

*..KB0i T5TB B»TPS 

BPL I..KBO 

MOV RO.SMPB 
RETURN 

,OSABL LSB 



lECHO RUNNING ? 
I IF PL, WAIT 
{ECHO CHARACTER 
iRETURN TO CALLER 



E7 



^M 







I S3?. 
1253 
1254 
1255 
125b 

1257 

1258 
1250 

1260 
1261 
1262 
1263 
126m 
126b 
1266 
1267 
1268 
126^ 
1270 
1271 
1272 
1275 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 



TFST 
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.SBTTL 



SEQ 82 



006136 
006142 
006166 
006212 
006222 
006226 
006230 
006254 
006260 



005037 007150 



005/37 007152 
001375 

010637 007150 
00020? 



j SUBROUTINE. : 



*, .PRO 
I. .PRO 



j THIS ROUTINE IS CALLED TO PRINT THE DEFAULT KEYBOARD 
{PROMPT STRING ON THE TERMINAL, AND TO SET THE INPUT FLAG, 



j INPUT; 
j OUTPUT; 

j AUTHOR: 

; MZ001 



CSP) « CALLER PC 
PROMPT STING ON TERMINAL 
BERT HU6ER CSS/DP MUNICH 



28-JUN-76 



THE USE OF THIS MACRO'S ALLOWS TO USE ONE 'ERSIQN OF COM 
ON LSI AND PDP. 





.IDENT 


/Vl.O/ 




j.PSECT 


CSSMON 




.ENABL 


LSB 


i..PRO{ 


CLR 


INFLAG 




PREAD 


STATUS j 




PSET 


CO i 




WRITE 


PROMES 


1$: 


TST 


OUTFLG 




BNE 


1$ 




PSET 


STATUS 




MOV 


SP.INFLAG 




RETURN 






.DSABL 


LSB 



} i {RESET INPUT FLAG 
SAVE STATUS jMZOOl 
j CLEAR PS jMZOOl 

I ; {WRITE PROMPT STRING 
{WAIT FOR OUTPUT COMPLETE 

'{RELOAD STATUS ; M?001 

i 1 j SET INPUT FLAG 
{RETURN TO CALLING PROGRAM 



IEC11-B 
$,.STX 

1285 

1286 
1287 
1268 
1289 
1290 
1291 
1292 
1295 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
130? 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 



F7 



TEST 
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SEQ 83 



006262 
006264 
006310 
006334 
006344 
006350 
006352 
006376 



000240 



005737 007152 
001375 

000207 



.SBTTL $.,STX 



! SUBROUTINE: 



*. .STX 



;THIS ROUTINE PRINTS THE 'SYNTAX ERROR' MESSAGE 



i INPUTS: 

! OUTPUT: 

AUTHOR: 



CSP)« CALLER PC 
MESSAGE ON TERMINAL 
BERT HUBER CSS/DP MUNICH 



28-JUN-76 



MZ001 



THE USE OF THIS MACRO'S ALLOWS TO RUN ONE VERSION OF COM 
ON LSI AND POP. 



5.PSECT CSSMON 





.ENABL 


LSB 


«..STX: 


NOP 






PREAO 


STATUS 




PSET 


00 




WRITE 


MSYERR 


1*: 


TST 


OUTFLG 




BNE 


1$ 




PSET 


STATUS 




RETURN 






.DSABL 


LSB 



; u DUMMY 
; SAVE STATUS jMZOOl 
{CLEAR PS {MZ001 

;WRITE SYNTAX ERROR MESSAGE 
j WAIT FOR OUTPUT COMPLETE 

^RELOAD PS {MZ001 
{{{RETURN TO CALLER 



IEC11-B 

*• •ORp 



G7 



TFST 
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SEQ 84 



1517 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
132"/ 
1328 
1329 



.SBTTL $..DMP 
t ♦ 
SUBROUTINE: I. .OMP 



THIS ROUTINE PRINTS ON THE TERMINAL PRINTER NUMBERS 

IN BINARY, DECIMAL AND OCTAL FORMAT, DEPENDING ON THE 

TYPE-ARGUMENT OF THE CALLING DUMP MACRO, 

THIS MONITOR WAS MODIFIED IN JANUARY 1983 TO INCLUDE XON AND XOFF 
TERMINAL FEATURES. ALSO INCLUDED SOME MACRO DIRECTIVES TO ALLOW 
ASSEMBLY ON VAX. 



H 7 



H5AAp b 


TEST 


MACRO M1200 3( 


1551 








1332 








1355 








1334 








1335 








1336 








1337 








1336 








1339 








1340 








1341 








134? 








.134 3 








1344 


006400 






1345 


00640? 


016600 


000004 


1346 


006406 


005737 


007152 


134/ 


00641? 


0013/5 




1348 


006414 


000170 


006420 


1349 


006420 


006426 




1350 


00642? 


006520 




1351 


006424 


006630 




135? 


006426 


012746 


000006 


1353 


0064 32 


016646 


000010 


1354 


0064 36 


012700 


000060 


1355 


006442 


006316 




1356 


006444 


103001 




1357 


006446 


005200 




1358 


006450 


004737 


006122 


1359 


006454 


005366 


000002 


1360 


006460 


001415 




1361 


006462 


012700 


000060 


136? 


006466 


006316 




1363 


0064 70 


103002 




1364 


00647? 


062700 


000004 


1365 


0064/6 


006316 




1366 


006500 


103001 




1367 


006502 


122020 




1368 


006504 


006316 




1369 


006506 


103360 




1370 


006510 


005200 




13/1 


00651? 


000756 




13/? 


006514 


022626 




13/3 


006516 


000466 




13/4 








lVi 








13/5 


0065?0 


012746 


000005 


13// 


006524 


016646 


000010 


13/8 


006530 


012700 


000060 


13/9 


006534 


004737 


00612? 


1380 


006540 


Oi?700 


000060 


1581 


006544 


027716 


000044 


138? 


006550 


101004 




1383 


006552 


005200 




1584 


006554 


16 7 716 


000034 


1 Wi 


006560 


OoOV/1 




3 586 


006562 


004/37 


00612? 


138/ 


006566 


062737 


000002 
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INPUT: 



SEQ 85 



OUTPUT; 

i AUTHOR : 
} - 



*» .DMP 



D. .TYP 



$. .DOC; 



1$ 



006614 



2$ 



3$ 



4$ 



$. .DOC 



1$ 

2$ 



3* 



I .PSECT 

.ENABL 

PUSH 

MOV 

TST 

BNE 

JMP 

J. ,ooc 

*. .DOC 
$. .DBN 

MOV 

MOV 

MOV 

ASL 

BCC 

TNC 

CALL 

DEC 

BEQ 

MOV 

ASL 

BCC 

ADD 

ASL 

BCC 

CMPB 

ASL 

BCC 

INC 

BR 

CMP 

BR 

.DSABL 

.ENABL 

MOV 

MOV 

MOV 

CALL 

MOV 

CMP 

BHI 

INC 

SUB 

BW 

CAl L 

ADD 



4(SP) - VALUE TO DUMP 
2CSP) -TYPE OF DUMP : * OCTAL 

2 « DECIMAL 
4 - BINARY 
(SP) -RETURN PC 



DUMP ON TERMINAL 

BERT HUBER CSS/DP MUNICH 



28-JUN-76 



CSSMON 

LSB 

RO 

4(SP).R0 

OUTFLG 

. -4 

b)D. .TYP(RO) 



06,-CSP) 
10(SP) ) -CSP) 
O'O.RO 
(SP) 

1* 

RO 

t. .KBU 

2(SP) 

4) 

O'O.RO 
(SP) 

?.i 

04, RO 
(SP) 
3$ 
(RO)» a (RO)» 

(SP) 

II 

RO 

U 

(SP)» .(SP)* 

OMP . , E 

LSB 
LSB 

05 , ( SP ) 
10(SP), -CSP) 
O'O.RO 
I. ,KBO 
3' O.RO 
SfPOINT 
3i 

RO 

fi)JPOINT,(SP) 

2i 

t . .KBO 

*a,$PoiMr 



j BUILD 

j SETUP 

(SP) 



j SAVE RO 

{GET TYPL ARGUMENT 
j OUTPUT RUNNING ? 
j IF NE, WAIT 
j SELECT FUNCTION ROUTINE 



iSF.TUP DIGIT COUNT 

{GET VALUE TO DUMP 

{SETUP BASIC ASCII VALUE 

{BUILD FIRST DIGIT 

{IF CC, DIGIT IS A '0' 

{OTHERWISE DIGIT IS A ? 

i DUMP DIGIT 

{COUNT DIGITS DUMPED 

j IF EQ, ALL DONE 

{SETUP NEXT DIGIT BASE 

{BUILD NEXT DIGIT 

l IF CC, DIGIT INCLUDES ????? 

{DIGIT - BASE** 

{ANALYZE NEXT BIT 

j IF CC t DIG1I INCLUDES ???? 

{DIGIT « DIGIT ♦ 2 

{ANAL I /F. LAST BIT OF DIGIT 

{IF CC. DIGIT MUST BE EVEN 

{OTHERWISE DIGIT IS ODD 

{GO ANO DUMP 

i READJUST STACK 

{END OF DUMP 



{SETUP A DIGIT COUNT 

j GET VALUE TO DUMP 
LEADING ZERO 

{AND PRINT 
BASIC ASCII VALUE 

jCMP VALUE WITH ACT. DEC. DIGIT 

1 VALUt: IS SMALLER 

{COUNT NUMBER OF DIVISIONS 

{DIVIDE BY ACT. DFC. DIGIT 

{DO MXT 

{PRINT TH1") DtC. DIUH 

{POINT TO NEXT DEC. VALUE 



17 



IEC11-B 


TEST 


MACRO M1200 30 


-MAR -64 


16:11 P, 


AGE 25-1 




«.*DMP 
















1386 


006574 


005366 


000002 






DEC 


2(SP) 


1589 


006600 


001357 








BNE 


it 


1390 


00660? 


012737 


006616 


006614 




MOV 


<M TABLE, SPOINT 


1391 


006610 


022626 








CMP 


(SP)*,(SP)» 


139,? 


006612 


0004 30 








BR 


DMP , , E 


1393 


006614 


006616 






SPOINT: 


$ TABLE 




1394 


006616 


023420 






STABLE: 


10000. 




1395 


006620 


001750 








1000. 




1396 


006b?.? 


000144 








100. 




1597 


006624 


000012 








10, 




1398 


006626 


OOOOOl 








1 




1399 












.OSABt. 


l.SR 


1400 












.ENABL 


l.SB 


1401 


006630 


012766 


000020 


000004 


*. .DBN: 


MOV 


416. ,4(SP) 


1402 


0066 56 


00024 1 






1$: 


CL.C 




1403 


C06640 


006166 


000006 






ROL. 


&CSP*) 


1404 


006644 


±03410 








BCS 


3i 


1405 


006646 


012700 


000060 






MOV 


460, RO 


1406 


006652 


004 7 37 


006122 




2*} 


CALL 


t . .KBO 


1407 


006656 


005366 


000004 






DEC 


4CSP) 


1408 


006662 


001365 








BNE 


1$ 


1409 


006664 


000403 








BR 


DMP . . ? 


1410 


006666 


012/00 


000061 




3$: 


MOV 


*61, RO 


1411 


00667? 


000767 








BR 


?$ 


141? 












.DSABL 


LSB 


1413 


006674 








DMP..E: 


POP 


RO 


1414 


0066/6 


062706 


000006 






ADD 


06, SP 


14 1 «", 


CGOi'Oc' 


000176 


17777a 






JMP 


a-6(SP) 


1416 












.DSABL 


LSB 



SEU 86 



I COUNT NUMBER OK CONK DIlilFb 
j ALL DONE 

{REBUILD FOR NEXT USER 
{CORRECT STACK FOR RETURN 
I END OF DEC, OUMP 



j SETUP PRINT POINTER 

{RESET CARRY 

{SELECT TIRST CHARACTER 

{IF " 1 • BRANCH 

l St TUP A "0" CHARACTER 

{DUMP CHARACTER 

{COUNT CHARACTERS DUMPED 

I IF NE, CONTINUE 

{END OF DUMP 

{SETUP M " 1 " CHARACTER 

{DUMP TT 

{RESTORE RO 

{READJUST STACK 
{RETURN TO CALLER 



IfcCll R Tt ST 
$ , , AOP 
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J 7 



SECJ 87 



14]8 
1414 
14?0 
1421 
142? 
1425 
1424 
142S 
1426 
14?; 
1428 
1424 
14 30 
1451 
14. V 
1435 
1454 
1435 



.SBTTL J..ADP 

THIS SUBROUTINE IS USED TO PRINT OUT ADDITIONAL. INFORMATION 
AttOUT AN ERROR. MOSTUMES IT WILL BE USED TO PRINT THE 
DATA IN CASE OF DATA ERROR. 



006/06 

006716 
006 750 
006740 
006752 



000207 



INPUTS 



OUTPUT; 

AUTHOR: 
$, .AOP: WRITE 

DUMP 
WRITE 
DUMP 
RETURN 



(SP) -ADDRESS OF FIRST ARGUMENT 



NONE 



MICHmFL 7ILLF.R 

MER1 s "SHOULD HE" 

OCT, $SHl jDUMP DATA 

MER? j "WAS" 

OCT.SWAS jDUMP DATA 

{RETURN TO MAIN 



MUNICH MAY 1977 



ItCll B 



Tt-ST 
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l<7 



SEQ 6* 



1437 
1438 
143*) 
1440 
1441 
144 t ? 
1443 
1444 

1445 
144^ 
144.* 
144H 
1449 
14 SO 
1451 
145? 
1453 
1454 
1455 
145b 
1457 
1458 
1459 
1460 
1461 



006754 

006760 
0067 70 
007000 
00 7004 
00/006 
007014 



062706 000004 



.SBTTL $.,T0T 
♦ 

THIS ROUTINt 15 ENTERED AFTER THE MACRO "ADRTST" HAS BEEN EVOCEO 
AND A BUS TIMEOUT HAS HAPPENED 

INPUT: 4(5P) - PC FOR PROGRAM CONTINUATION 

RO - REGISTER ADDRESS (E.G. 164000) WHICH SHOULD BE TESTED 



OUTPUT: 
AUTHOR: 

*. , TOT 



005 737 
0013^5 
012737 
000136 



007152 

000006 000004 



ADD 

WRITE 

DUMP 

T5T 

BNE 

MOV 

JMP 



THE ERROR MESSAGE: 

THIS ADDRESS IS NOT AVAILABLE ON UNIBUS: 

ALBERT BREM.CSS MUC FEB 1979 



164000 



04 , SP 
IMNOAV 
OCT.RO 
OUTFLG 

. -4 
#6,^04 

acsp) + 



•CORRECT Sf> 

ISAY ADDRESS NOT AVAILABLE ON UNIBUS 
{DUMP REGISTER ADDRESS 
{SYNCHRONIZE PRINTOUT 

\ " 

iREBUIt D TRAP CATCHER 

;JUMP TO CONTINUATION LABEL 



LY 



IEC11 B 
$ , , BU> 

14 t >3 
1464 
1465 
1466 
146.' 
1463 
146^ 
14 70 
14, '1 

i4;:> 

14 73 
14/4 
14 75 
14 76 

14/7 

14 78 

14 79 

1460 

1481 

148a 

1495 

1484 

1485 

1486 

148 7 

1488 

1489 

1490 

1491 

1492 

149* 

1494 

1495 

1496 

149/ 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

150/ 

1508 

1509 

1510 

1511 

1512 

151? 

1514 

1515 

1516 

1517 

1518 

1519 



TEST 
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SEQ 89 



00/016 
00/020 
007022 



00/026 
007146 
00 7146 
007150 
00 7152 
00/154 
00 7156 
00/160 
00/162 
007164 
00/166 
007170 
00/1/2 
007174 



172360 
1 72320 
172340 
1/2352 
172354 
172356 
172300 
172314 
172316 
172200 
17 7660 
1/7620 
1/764 
17 7650 
17 7652 
177654 
177656 
17 7600 
177610 
17 7612 
177614 
1 7/616 
170200 
140000 
030000 
177572 
17251b 
000000 
000000 
000000 



00 702b 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 
ooocoo 
oooooo 

001000 

oooooo 



oooooo 



.SBTTL $..BUF 

♦ 

SUBSECTION TO CONTAIN ALL CDH BUFFERS 

'NOT MACRO-DEFINED 1 PARAMETERS. 



CONSTANTS AND 



{AUTHOR: 



BERT HUBER CSS/DP MUNICH 



; MEMOR 

KDSARO 
KDSORO 
KISARO 
KISAR5 
KISAR6 
KISAR7 
KISDRO 
KISDR6 
KI5DR7 
5ISDR0 
UDSARO 
UOSDRO 
UI5AR0 
UISAR4 
UISAR5 
UISAR6 
UI5AR7 
UISDRO 
UISDR4 
UISDR5 
UISDR6 
UTSDR7 
UHHPR- 
CMODE- 
PMODE- 
SRO-17 
SR3-17 
MPTYP 

$*mtyp 

MEMEND 



j .PSECT CS5M0N 

.ENABL LSB 
Y MANAGEMENT DEFINITIONS 
■172360 
•172320 
-172340 
-172352 
-172354 
-172356 
-172300 
-172314 
-172316 
-172200 
-17/660 
-177620 
-177640 
-177650 
-177652 
-177654 
-177656 
-177600 
-177610 
"177612 
-1 >/6l4 
-1 7/616 
170200 
140000 
30000 
75/2 
2516 

.WORD 

. WORD 

.WURO 0,0 



KB BUFF 
KBHENO 
KBBPNT 
INFLAG 
DUTFl G 
ERRF LG 
INPREQ 
P5D5WR 
RUBFLG 
STATUS 
i . . ER : 
SPEFLG 
SCOP AD 
*,$ASF 



,01. KB 80. 



. WORD 
.WORD 
WORD 
.WORD 
.WURU 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
1000 
.WORD 



KB BUFF 





















j INPUT 
t INPU1 
iOUTPU 



J SAVE 



IF Oi'LSli IF -l.:-«PDP 
IF 0:N0 MM j IF 1:WTTH MM 
TOP OF CORE AND CORF EXTENSION 
STARTING FROM HEME TILL PROMES 
THE CONTENTS WILL BE CLEARED 
WITH "ABO" 

TERMINAL INPUT BUFFER 
REFERENCE LABEL 
BUFFER POINTER 
'RUNNING" FLAG 
T ' RUNNING" F'l AG 

, » ERROR HANDLING RLQ.' FLAG 
j 'WAIT FOR SPECIAL INPUT" FLAG 
{SOFTWARE SWITCHREGISTER 
iRUBOUTMODE- INDICATOR FLAG 
{BUFFER P:> CONTENT IF SAVED 
{HOLDS CURRENT ERROR NUMBER 
{USED IN $. .KBI AND *. .WRT 
AREA f OR SCOPE I OOP ADDRtSS 
{SPECIAL ASCII INPUT FLAG 



S^iV 



B TFST 
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M7 



SEQ 90 



1520 
lb21 
1522 
1523 

1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
154 7 
1548 
1549 
1550 
1551 
1552 
1553 
1554 



007176 
00 7200 

007202 
0072*0 

007213 
007256 
007316 
007360 
007421 
007445 
007503 
007524 
007601 
007652 
007662 
007704 
007737 
010002 
010032 
010104 
010144 
010156 
010252 
010304 
010333 
010351 
010426 
010*72 
010542 
010612 



010614 



000000 
000000 

133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
040 
133 
133 
133 
133 
133 
040 
133 
110 
133 
040 
133 
133 
133 
133 
066 



103 
040 
113 
111 
111 
111 
111 
102 
123 
123 
123 
105 
040 
120 
105 
056 
117 
111 
040 
133 
111 
040 
040 
133 
115 
111 
127 
155 



104 
135 
105 
114 
114 
114 
114 
131 
131 
103 
125 
122 
040 
122 
122 
056 
120 
114 
040 
133 
107 
103 
040 
124 
105 
114 
105 



$SHLD: 

$WAS; 

PR0ME5 
OUMMES 

MKBOVF 
MILOCT 
MILDEC 
MILBIN 
MILEMT 
MILADR 
MSYERR 
MILSCP 

MERROR 

MERRP2 
MPWRFL 
MERCOV 
MERHLT 
MNOSUB 
MILTR1 
MILTR2 
MVERSN 

MERlt 
MER2: 

JMNOAV 
MEMDEF 

MAPER; 

N06; 



COM..E 



.WORD 

.WORD 

.NLIST 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.even 

.LIST 
♦OSABl 



jUSED IN *. .ADP 

jUSED FOR $, .ADP 

BEX 
/[CDM>]/ 

/[ 3/ 

/[KEYBOARD BUFFER OVERFLOW! REENTER]/ 
/{ILLEGAL OCTAL INPUT J! REENTER]/ 
/[ILLEGAL DECIMAL INPUT !» REENTER]/ 
/[ILLEGAL BINARY INPUT !! REENTER]/ 
/[ILLEGAL EMT -NUMBER]/ 
/[BYTE ADDRESS IS NOT ALLOWED ]/ 
![]/ 



/[SYNTAX ERROR 



SKIPPED TO A 

INTERMITTEND 



SUBSEQUENT ERROR 
HARDWARE ERRORN/ 



]/ 



i i 



[/ 



/[SCOPE LOOP 

/[SUSPECT AN 

/[ERROR ]/ 

/ AT LOCATION : ]/ 

/[PROGRAM MADE POWER FAIL []/ 

/[ERROR COUNTER OVERFLOW ON ERROR 

/[...HALT AFTER ERROR...]/ 

/[OPTION NOT SUPPORTED IN THIS COM VERSION]/ 

/[ILLEGAL INTERRPT OR TRAP TO : ]/ 

/ FROM: ]/ 

/[[[[ CDM V3.5 ---CSS DIAGNOSTIC MONITOR- --[[[ / 

/HIGHEST MEMORY ADDRESS : ]/ 

/[ CONTENT SHOULD BF : ]/ 

/ BUT WAS : ]/ 

/[[THIS ADDRESS IS NOT AVAILABLE ON UNIBUS: ]/ 

/[MEMORY MANAGEMENT UNIT IS DEFECT!!!/ 

/[ILLEGAL MAPPING ADDRESS SPECIFIED !!! J [ ]/ 

/(WE WILL TRY WITHOUT MEMORY MANAGEMENT [ ]/ 

/6]/ 

BEX 
LSB 



N7 



IECll-B TEST 



1 
r! 
3 
4 
r > 
6 

8 

9 

10 

11 

It 1 

13 

14 
IS 
16 
17 
18 
IS 
?0 
,?1 
2<? 

c?:5 

P4 
PS 
P6 

?.'? 

P8 

<:9 

30 
31 

SP 
33 

34 
3 l , 
36 
3/ 
38 
f«* 
40 
41 
4 t > 
4 3 
44 
4S 
46 
4 / 
48 
4 V * 
SO 
!U 

S3 
S4 
SS 
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.TITLE 
.SBTTL 



SEQ 91 



LOCAL 



IECll-B TEST 
MACRO DEFINITIONS 



THIS SECTION CONTAINS ONLY MACROS WHICH ARE 
USED SEPARATE FROM THE MACRO LIBRARY (NEWMAC), 



.MACRO MCLEAR 

MOV 4BlT5,o)CIR 

MOV #BIT3,aCSR 

.ENDM MCLEAR 



5 CLEAR REGISTERS IN IEC11-A 
{ CLEAR REGISTERS IN IECll-B 



DATACC 
OBITlS.aCIR 
. 6 

♦BIUS.SCIR 
DATACC 



STALL 



DATA ACCEPTFD i 
IF YES.CONUNUf 
CLEAR "DATA ACC 



.MACRO 

BIT 

BEQ 

die 

,ENDM 



.MACRO 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

.ENDM 



THE MACRO "CACS" SE ! S IHl II CU A 

TO CONTROi l.ER ACTIVE STATE (CONTROLLER IN CHARGE) 



IN CIR 



St 
b'f 



.MACRO CACS,?A,j»H 
BIS ttBITO.aCIR 



SET SACS 



IfcCll -H Tf ST MACRO Ml 

LOCAL MACRO DEFINITIONS 



BH 



u>00 30 -MAR. 84 16:11 PAGF . J 9 1 



SEU 92 



t>e 

hO 

M 

*3 

M 

b^ 

.'0 

".'1 





BIS 


OBITt.SSMR 


At 


BIT 


0BIT13,&)SMR 




BNfc 


A 


B: 


BIT 


0BIT8.3SMR 




BFQ 


B 




BIC 


O177400.QCIR 




>bNDM 


CACS 



st-. r sic 

IS SIAS STILL SET ? 
If NOT, TEST AGAIN 
IS CACS SET ? 
IF NOT, WAIT 






J&W+ PrMW macro m,?00 50 mar 84 16il1 PAt!F ,0 



C8 



SEU 95 



// 








.SBTTL 


INPUT PROCEDURE 


78 010614 


032/57 


000003 007024 


DUf PHP; 


BIT 


05,MEMEND»2 » 


79 010622 


001012 






BNE 


it i 


80 010624 








IF ME.MEND HI 0157776 GOTO \i t 


81 010640 


015757 


007022 026/72 




MOV 


MEMEND.MEMSAV « 


8*} 010646 


000405 






BR 


2» i 


85 010650 


012757 


157 776 0267/2 


U: 


MOV 


0157/76, MEMSAV ; 


84 010656 


015700 


026 / n 


2*: 


MOV 


HEMSAV.RO » 


85 010662 


162700 


00027 7 




sue 


•2 77.RO i 


86 010666 


010057 


02/004 




MOV 


RO.BUFBE j 


87 010672 


012737 


031624 026774 




MOV 


OPRGEND.BUFAB j 


88 010700 


013700 


02 7004 




MOV 


BUFBE.RO { 


89 010704 


162700 


031623 




sue 


<PRGEND-1.R0 j 


90 010710 


006200 






ASR 


RO j 


91 010712 


042700 


100000 




BIC 


0GIU5,R0 , 


f »2 010 716 


010057 


027000 




MOV 


RO, BUFFI » 


95 010722 


062700 


031624 




ADO 


OPRGEND,RO j 


94 010726 


01003/ 


027002 




MOV 


RO.BUFBB , 


95 010732 


162700 


00000 1 




sue 


•l. RO { 


96 010756 


010037 


026776 




MOV 


RO.BUFAE i 


97 010/42 








WRITE 


MID i 


98 010752 






RGAIN: 


WRITE 


MES1 j 


99 010762 








READ 


OCT.RO f 


100 0107 70 








IF RO 


NE frO GOTO IS j 


101 011000 


012700 


160010 




MOV 


0160010 ( RO j 


102 011004 


52700 


00000 7 


11: 


BIT 


07, RO j 


103 011010 


001560 






BNE 


RGAIN i 


104 011012 








If RO 


1.0 0160010 GOTO RGAIN , 


105 011022 








IF RO 


HI 0177/76 GOTO RGAIN j 


106 011032 








AORTST 


RGAIN , 


107 011056 


010037 


026752 




MOV 


RO.CIR i 


108 011062 


062700 


OOOC02 




ADD 


02 ,R0 i 


109 011066 








ADRTST 


RGAIN ; 


J 10 011112 


01003 7 


C 26 7 54 




MOV 


RO , SMR { 


.11 011116 


062 70T 


000002 




ADD 


02. RO j 


112 011122 








ADRTST 


RGAIN j 


113 011146 


010037 


026736 




MOV 


RO.IOR j 


114 011152 


062700 


000001 




ADD 


01, RO » 


115 OU156 


010037 


026740 




MOV 


RO.IORHB i 


116 011162 


062/00 


000001 




ADD 


01, RO j 


11 / 011166 








ADRTST 


RGAIN j 


118 011212 


010037 


026742 




MOV 


RO.VSR j 


119 011216 






VECAIN: 


WRITE 


MES2 i 


120 011226 








READ 


OCT,RO ( 


121 011234 








IF RO 


NE 00 GOTO 2$ ( 


122 011244 


012700 


0002/0 




MOV 


02 /O.RO j 


12 5 011250 






«?*: 


If RO 


LO 040 GOTO VECAIN j 


1?4 011260 








IF RO 


HI 0/74 GOTO VECAIN j 


125 0112/0 


0200/7 


015446 




CMP 


RO.avSR j 


126 0U2 /4 


001406 






BFQ 


SAV t 


12/ 0112/6 








WRlTe 


MFS6 i 


128 011306 


00013/ 


01)216 




JMP 


VECAIN j 


129 011312 


010057 


026/56 


SAV; 


MOV RO<VECA « 


150 011316 






ADORlNj 


WHITE 


MES5 | 


151 011526 








Pf AO 


OCT, MO i 


132 011554 








V RO 


HI «36 GOT'J AODRIN i 


155 011344 








IK RO 


EU 40 GOTO ULKA i 



MORE THAN 52 K 7 



use 28k for buffer 

save absolute loader area 
last byte address of buffer b 
first Byte address of buffer a 

BUILD L.tNGTH 
IN BYTES 
OF 

BUFFER A OR B 

BUILD FIRS1 BYTE ADDRESS OF 

BUFFER B 

BUILD LAST BYTE ADDRESS 

OF BUFFER A 

TDENTIFY TEST 

ENTER FIRST REG OF IECli-A 

INPUT REQUEST 

SAVE OEFAUL.T VALUE 
CHECK THREE I SB 0* INPUT 
IF NOT CLEAR, REQUEST AGAIN 



SAVE CIR ADDRESS 
BUILD NEXT ADDRESS 

SAVE SMR REG ADDRt SS 
HUH D NEXT ADDRESS 

SAVE TOR REG ADDRESS 
BUILD HIGH-BYTE ADDRESS 
OK IQR 
BUILD NEXT ADDRESS 

SAVE VSR REG ADDRESS 

REQUEST VECTOR ADDRESS OF IECll-A 

INPUT REQUEST 

SAVE DEFAULT VALUE. 



IS INPUT EQUAL TO VSR ? 

1^ YES, SAVE INPUT AND CONTINUE 

V NOT, WRITE MESSAGE 

REENTER 

SAVE UC11 -A VICTOR ADDRESS 

M Out ST IECll-A BUS ADDRESS 

INPUT 



D8 



fliWf 



f *Pr6^Sure 
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1 


134 011354 








IF RO 


EQ #35 GOTO OEFA j 


155 011366 


010037 


026762 




MOV 


RO,IECAAD i 


136 011372 


000403 






BR 


RGRIN j 


137 011374 


012737 


000035 026762 


DEFA; 


MOV 


035.IECAAD i 


138 01140c 1 






RUBIN: 


write: 


MES3 , 


139 01141^ 








READ OCT,:<0 j 


140 011420 








IF RO 


NE 00 GOTO 4$ , 


141 011430 


012700 


160020 




MOV 


0160020 ( RO j 


14.? 011434 


032700 


000007 


4*: 


BIT 


07, RO { 


143 011440 


001360 






BNE 


RGBIN i 


144 011442 








IF RO 


LO 0160020 GOTO RGRIN j 


145 011452 








IF RO 


HI 017 7776 GOTO RGBIN i 


146 01146c 1 








ADRTS1 


RGBIN j 


147 011506 


0100-17 


026744 




MOV 


RO.CSR j 


148 011512 


062700 


000002 




ADO 


02, RO i 


149 011516 








ADRTS1 


RGBIN j 


150 011542 


010037 


026746 




MOV 


RO,BCR i 


151 011546 


062700 


000002 




ADO 


02, RO i 


152 011552 








ADRTS1 


RGBIN j 


153 0115/6 


010037 


026750 




MOV 


RO.BAR j 


154 011602 


062700 


000002 




ADD 


02, RO , 


155 011606 








ADRT51 


' RGBIN i 


156 011632 


010037 


026752 




MOV 


RO.MCR j 


157 011636 


062700 


oooooi 




ADD 


01. RO { 


158 011642 


010037 


026754 




MOV 


R0.MCRH6 j 


159 011646 






VECBIN: 


WRITE 


ME 54 , 


160 011656 








READ 


OCT.RO } 


161 011664 








IF RO 


NE 00 GOTO 5$ i 


162 011674 


012700 


000274 




MOV 


0274, RO j 


163 011700 






5*: 


IF RO 


LO 040 GOTO VECBTN j 


164 011710 








IF RO 


HI 0774 GOTO VECBIN t 


165 011720 


010037 


026760 




MOV 


RO.VECB j 


166 011724 






BDDRIN: 


WRITE 


MfcS7 : 


167 011734 








READ 


OC T , RO 


168 011742 








IF RO 


HI 036 GOTO BDDRIN 


169 011752 








IF RO 


EQ 00 GOTO DEFB ; 


170 011762 








IF RO 


EQ 036 GOTO DEFB i 


171 0117/4 


010037 


026 764 




MOV 


RO.IECBAD j 


172 012000 


000403 






BR 


i . . 5PC i 


173 012002 


012737 


000036 026764 


DEFB; 


MOV 


036,IECBAD } 



SEQ 94 



SmVE IEC11-A BUG ADDRESS 

goto get next register address 
save default value 
fnter first reg of iech-b 
input request 

save default value, 
check three lsb of input 

ARE ZERO 



SAVE CSR REG ADDRESS 
BUILD NEXT REG ADDRESS 

SAVE BCR REG ADDRESS 

BUILD NEXT REG ADDRESS 

SAVE BAR REG ADDRESS 
BUILD NEXT REG ADDRESS 

SAVE MCR REG ADDRESS 
BUILD MCR-HIGHBYTE 

REQUEST 7.EC11-B VECTOR 
INPUT REQUEST 

SAVE DEFAULT VALUE 



SAVE IEC11-B VECTOR ADDRESS 
RE QUE. ST IECli-B BUS ADDRESS 

INPUT 



SAVE IEC11-B BUS ADDRESS 
GOTO TE.ST SELECT 
SAVE DEFAULT VALUE 



IfcCll -B TtST MACRO 

TEST SELECT ROUTINE 
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E8 



SEQ 95 



175 










•SBTTL 


TEST SELECT ROUTINE 


176 012010 








$..SPC{ 


REMVEC 


OVECA j 


177 012016 










REMVEC 


WECB j 


178 012024 


005737 


007152 






TST 


OUTFLG i 


179 012030 


001375 








BNE 


. -4 j 


180 012032 


000005 








RESET 




181 012034 










SET6 


S#TKS i 


182 012042 








LAB11: 


WRITE 


MESNEX j 


183 012052 










READ 


OCT.RO i 


184 012060 










IF RO 


HI *>7 GOTO LAB11 j 


185 012070 










IF RO 


EQ 00 GOTO TESTAL j 


186 012100 


012737 


177777 


027024 




MOV 


0177/77, TSTREP j 


187 0121u6 


006300 








ASL 


RO i 


188 012110 


010027 








MOV 


RC.CPC)* i 


189 012112 


000000 






Of T SET: 


.WORD 


i 


190 012114 


013737 


012112 


012240 


SINGLE? 


MOV 


OFFSET, OFFCNT j 


191 012122 


062737 


012220 


012240 




ADD 


*TT, OFFCNT i 


192 012130 


017737 


000104 


012240 




MOV 


SOFFCNT.OFFXNT j 


193 012136 


004777 


000076 






JSR 


PC, ©OFFCNT j 


194 012142 


000764 








BR 


SINGLE $ 


195 012144 


012737 


000000 


027024 


TESTAL: 


MOV 


♦O.TSTREP ; 


196 012152 


012727 


012222 






MOV 


*TT»2,(PC)> j 


197 012156 


000000 






SEQPNT; 


.WORD 


j 


198 012160 


013737 


012156 


012240 


SEQs 


MOV 


SEQPNT, OFFCNT j 


199 012166 


017737 


000046 


012240 




MOV 


SOFFCNT, OFFCNT ; 


200 012174 


00477? 


000040 






JSR 


PC.aOFFCNT } 


201 012200 


023727 


012156 


01*7236 




CMP 


SEQPNT.OTTE-4 j 


202 012206 


001756 








BEQ 


TESTAL j 


203 012210 


062737 


000 I 


012156 




ADD 


02.SEQPNT 5 


204 012216 


000760 








BR 


SEQ { 


205 012220 


000000 


012242 


013074 


TT: 


.WORD 


0,TEST1 I TEST2,TEST3,TEST4 


012226 


014352 


017350 


020442 








012234 


021350 


022206 










206 012240 


000000 






OFFCNTj 


♦ WORD 


i 


207 012242 








TTE: 







WAIT FOR ANY OUTPUT COMPLETE 

CLEAR THE WORLD 
RE-ENABLE TTY 
REQUEST NEXT TEST TO RUN 
WAIT FOR INPUT 



LOOP ON SINGLE TESTS 

BUILD WORD OFFSET INTO TABLE 

AND SAVE 

HOLDS CURRENT TEST NUMBER 



GOTO SELECTED TEST 

REPEAT TEST 

NO LOOP ON SINGLE TESTS 

GET ADDRESS OF FIRST TEST 

POINTER FOR TEST IN PROGRESS 

LOAD ADDRESS OF NEXT TEST 

GOTO EXECUTE TEST 
ALL DONE ? 
IF EQ, YES 
POINT TO NEXT TEST 
ANO DO NEXT 
,TEST5,TEST6,TEST7 



F8 
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209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

24 7 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 



012242 

012252 

012254 

012270 

012276 

012304 

012312 

012320 

012334 

012342 

012344 

012376 

012402 

012410 

012412 

012444 

012450 

012456 

012460 

012512 

012516 

012524 

012526 

012560 

012564 

0125/2 

012574 

012626 

012632 

012640 

012642 

012674 

012700 

012706 

012710 

012742 

012746 

012752 

012756 

012762 

01..766 

012772 

012776 

013004 

013010 

013014 

013020 

013024 

013030 

013034 

013040 

013044 

013050 

013C54 

013056 

013062 



104000 

052777 
052777 
052777 
052777 

022777 
001417 



022777 
001417 



022777 
001417 



022777 
001417 



022777 
001417 



022777 
001417 



022777 
001417 



012746 
012746 
004737 
012746 
012746 
004737 
012777 
012746 
012746 
004737 
012746 
012746 
004 737 
012746 
C12746 
004/37 
00573; 
O014U2 
00C137 



000161 

177777 
177777 
137777 



014446 
014442 
014436 
014432 



000060 
026744 

031100 
OOOIOO 
026744 
031100 
000010 
177777 
026746 
031100 
177777 
026750 
031100 
137777 
026 752 
031100 
02/024 

012252 



TEST1 
REP1: 



000000 014370 



000000 014324 1$; 



000000 014260 2$: 



000000 014220 3$: 



000000 014154 4$; 



000000 014110 5$; 



000000 014044 6$! 



7$: 



013740 



8*t 
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.SBTTL 

WRITE 

SCOPE 

MCLEAR 

BIS 

BIS 

BIS 

BIS 

MCLEAR 

CMP 

BEQ 

ADP 

ERROR 

CMP 

BEQ 

AOP 

ERROR 

CMP 

BEQ 

ADP 

ERROR 

CMP 

BEQ 

ADP 

ERROR 

CMP 

BEQ 

ADP 

ERROR 

CMP 

BEQ 

ADP 

ERROR 

CMP 

BEQ 

ADP 

ERROR 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

MOV 

CAl I. 

TST 

BEQ 

JMP 

WRITE 



SEQ 96 



TEST 1? REGISTER STATIC TEST 
MES8 j IDENTIFY TEST 1 



$l61,aCSR 
$177777, QBCR 
$177777, SflAR 
$137777, 8MCR 

$O.SCIR 
II 

$o,aciR 
l. 

$0,8SMR 

2$ 

$0 , SSMR 

2, 

$o,aioR 

3$ 

$o,aioR 

3. 

$o,acsR 

4$ 

oo.acsR 

4. 

oo.aecR 

5$ 

oo.aecR 

5. 

OO.aBAR 

6$ 

oo.aeAR 

6. 

$0,9MCR 

7* 

OO.aMCR 

7. 

$60, (SP) 

$CSR, -CSP) 

REGTST 

$100. .(SP) 

$CSR, -(SP) 

REGTST 

OBITS, SCSR 

$177777. (SP) 

$BCR, (SP) 

REGTST 

$17777/, -(SP) 

$BAR, (SP) 

REGTST 

$1377/7, (SP) 

$MCR. (SP) 

REGTST 

TSTREP 

8$ 

REP1 

ME SEND 



SET ALL R\W BITS IN CSR 
SET ALL R\W BITS IN BCR 
SET ALL R\W BITS IN BAR 
SET ALL R\W BITS IN MCR 

ALL BITS RESET IN CIR ? 

IF YES, CONTINUE 



ALL BITS RESET IN SMR 
IF YES. CONTINUE 



ALL BITS RESET IN I0R ? 
IF YES, CONTINUE 



ALL BITS RESET IN CSR ? 
IF YES, CONTINUE 



ALL BITS RESET IN BCR ? 
IF YES. CONTINUE 



all bits reset in bar ? 
if yes, continue 



ALL BITS RESET IN MCR ? 
IF YES, CONTINUE 



SAVE 


BIT 


MASK 




SAVE 


REGISTER 




TEST 


R/W 


BITS 




SAVE 


BIT 


MASK 




SAVE 


REGISTER 




TEST 


R/W 


BITS 




CLEAR REGISTERS 


IN IEC11-B 


SAVE 


BIT 


MASK 




SAVE 


REGISTER 




TEST 


R/W 


BITS 




SAVE 


BIT 


MASK 




SAVE 


REGISTER 




TEST 


R/W 


BITS 




SAVE 


BIT 


MASK 




SAVE 


REGISTER 




TEST 


R/W 


HITS 




TEST 


LOOP SELECTED ? 


IF NOT, LEAVE THE 


TEST 



i END OF TEST 



G8 

266 013072 000207 RETURN I 



m\ l £ Mk» aN8 c m$8 F® c mH s ur- n 
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SEQ 98 



268 












.SBTTL 


TEST 2: TALKER AND 


269 


013074 








TEST2; 


WRITE 


MES9 


270 


013104 


104000 








SCOPE 




271 


013106 








REP2: 


MCLEAR 




272 


013122 


052777 


000001 


013602 




BIS 


OBITO.QCIR 


273 


013130 


052777 


000100 


013576 




BIS 


*eiT6,asMR 


274 


013136 


005037 


027006 






CLR 


CNT1 


275 


013142 


032777 


020000 


013564 


1$: 


BIT 


*BIT13,aSMR 


276 


013150 


0C1405 








BEQ 


2% 


277 


013152 


005237 


027006 






INC 


CNT1 


278 


013156 


001371 








BNE 


1* 


279 


013160 










ERROR 


8. 


230 


013164 


032777 


000400 


013542 


2*; 


BIT 


ABIT8,aSMR 


281 


013172 


001002 








BNc 


3$ 


282 


013174 










ERROR 


9. 


283 


013200 


042777 


177400 


013524 


3$; 


BIC 


6177400, aCIR 


284 


013206 


013700 


026766 






MOV 


TAIND.RO 


285 


013212 


063700 


026764 






ADD 


IECBAD.RO 


286 


013216 


110077 


013514 






MOVB 


R0,3I0R 


287 


013222 


005037 


027006 






CLR 


CNT1 


288 


013226 


032777 


100000 


013476 


4$: 


BIT 


*BIT15,QCIR 


289 


013234 


001007 








BNE 


5$ 


290 


013236 


005237 


027006 






INC 


CNT1 


291 


013242 


005737 


027006 






TST 


CNT1 


292 


013246 


001367 








BNE 


4$ 


293 


013250 










ERROR 


10. 


29i 


013254 


042777 


100000 


013450 


5*j 


BIC 


08IT15.SCIR 


295 


013262 


052777 


000004 


013444 




BIS 


06IT2,8SMR 


296 


013270 


022777 


001204 


013446 




CMP 


01204, SCSR 


297 


013276 


001420 








BEQ 


LABI 


298 


013300 










ADP 


61204, QCSR 


299 


013332 










ERROR 


11. 


300 


013336 


104000 








SCOPE 




301 


013340 


042777 


001000 


013376 


LABI: 


BIC 


*eiT9,acsR 


302 


013346 


022777 


000004 


013370 




CMP 


44.3CSR 


303 


013354 


001420 








BEQ 


LAB2 


304 


013356 










ADP 


04.HCSR 


305 


013410 










ERROR 


12. 


306 


013414 


104000 








SCOPE 




30 7 


013416 


052777 


000002 


013310 


LAB2: 


BIS 


oBiu.asMR 


308 


013424 


022"; 77 


001200 


013312 




CMP 


i>1200,aCSR 


309 


013432 


001420 








BEQ 


LAB3 


310 


0134 34 










ADP 


01200,aCSR 


311 


013466 










ERROR 


13. 


312 


0134 72 


104000 








SCOPE 




313 


013474 


042777 


001000 


013242 


LAB3: 


BIC 


6BIT9 4 tfCSR 


314 


013502 


013700 


026766 






MOV 


TAIND.RO 


315 


013506 


063 700 


026762 






ADD 


IECAAD.RO 


316 


0.13512 


110077 


013220 






MOVB 


RO,aiOR 


317 


015516 










DATACC 




318 


013534 


052777 


000004 


0131/2 




BIS 


*8IT2,aSMR 


319 


013542 


02277 7 


000000 


013174 




CMP 


oo,acsR 


320 


013550 


001420 








BEQ 


LAB 4 


321 


013552 










ADP 


oo.scsr 


322 


013604 










ERROR 


14. 


323 


013610 


104000 








SCOPE 




324 


013612 


052777 


000002 


013114 


LAB4: 


BIS 


tfBITl.SSMR 



LISTENER FUNCTION TEST 
IDENTIFY TEST 2 
LOOP FOR ERROR 3 
TEST LOOP ENTRY 
SET SACS 
SET SIC 

IS 5IAS STILL SET ? 

IF NOT, CONTINUE 

IF YES, WAIT A WHILE 



IS CACS SET ? 

BUILD MTA B 
pi 

SET B TO TADS 

DATA ACCEPTED ? 
IF YES.CONUNUE 
IF NOT, WAIT A WHILE 
WAITLOOP FINISHED ? 



CLEAR "DATA ACC" IN CIR 

GOTO STANDBY STATE, B TO TACS 

IS TACS, STATE CH AND INT IN B SET? 

IF YES CONTINUE 



LOOP FOR ERflOR 4 

CLEAR STATE CHANGE IN CSR 

TACS SET, STATE CH AND INT CLEAR? 

IF YES, CONTINUE 



LOOP FOR ERROR 5 

LEAVE STANDBY STATE 

STATE CH AND INT SET, TACS CLEAR? 

IF YES CONTINUE 



CI EAR STATE CHANGE IN CSR 
BUILD MTA A 

A SETS ITSELF TO TACS.UNADDR. OTHER 

GO TO STANDBY STATE 
TACS CLEAR > 
IF YFS, CONTINUE. 



LUOP FOR ERROR 7 
LEAVl STANDS* STATE 



18 



IECU 
TfcST , 



325 
326 
527 
328 
329 
330 
331 
332 
3<3 
334 
335 
336 
337 
338 
339 
340 
341 
34 2 
34 3 
344 
345 
346 

34 7 
348 
349 
350 
351 
35? 
353 
354 
355 
356 

35 7 
358 
359 
360 
361 
362 
363 
364 
365 
^66 
367 
368 
369 
3 70 
3 71 
3 72 
3 73 
3/4 
3/5 
3 76 
377 



Tf ST 

TALKER 

013620 
013624 

013630 

013634 

013652 

013656 

013662 

013666 

013704 

013712 

013720 

013722 

013754 

013760 

013762 

013770 

013776 

014000 

014032 

014036 

014040 

014046 

014054 

014056 

014110 

014114 

014122 

014124 

014130 

014134 

014152 

014160 

014166 

014170 

014174 

014176 

014204 

014210 

014214 

014220 

014236 

014242 

014246 

014252 

014260 

014266 

014270 

014322 

014326 

014532 

014534 

014 340 

014350 



MACRO M1200 
AND LISTENER 



30-MAR-84 16 
FUNCTION TEST 



11 PAGE 33-1 



SEQ 99 



013/00 
063 700 
110077 

013 700 
063700 
110077 

0527 77 

022777 
001417 



104000 
042777 
022777 
001417 



104000 
052 7 77 
022777 
001417 



042777 

104000 
012700 
110077 

OS2/7 7 
03277/ 
001403 

104000 
052777 

013700 
063 700 
11007 7 

013/00 

06 3/00 
110077 
052777 
0227 7 7 
001417 



005 73/ 
001402 
00013 7 

000207 



026/66 
026764 
013102 

026770 

026764 
013050 

000004 
001202 



0010C0 
000002 



000002 
001200 



013022 
013024 



012754 
012746 



012666 
012670 



LAB5; 



LAB6: 



001000 012622 LAB?: 



C0007 7 
012602 

000004 
000002 



000002 
026770 
026764 
012516 

026766 
026764 
012464 
000004 
001204 



027024 
013106 



012554 
012556 



012530 LAB8 



012454 
012456 



LAB 9 



1$; 



MOV 


1A1ND.R0 


ADD 


IECBAD.RO 


MOVB 


RO.ttlOR 


DATACC 




MOV 


LIIND.RO 


ADO 


IECBAD.RO 


MOVE 


RO.aiOR 


DATACC 




BIS 


06IT2 t aSMR 


CMP 


01202, 3CSR 


BEQ 


LAB 5 


ADP 


01202, SCSR 


ERROR 


15. 


SCOPE 




BIC 


*SIT9,aCSR 


CMP 


v2,SCSR 


BEQ 


LAB6 


ADP 


02.SCSR 


ERROR 


16. 


SCOPE 




BIS 


0BIT1.SSMM 


CMP 


012OO,aCSR 


BEQ 


LAB/ 


ADP 


01200, aCSR 


ERROR 


17. 


BIC 


08IT9,aCSR 


SCOPE 




MOV 


077.RO 


MOVB 


RO.aiOR 


DATACC 




BIS 


0BIT2,aSMR 


BIT 


•BIT1.SCSR 


BEQ 


I AB8 


ERROR 


ia. 


SCOPE 




BIS 


»BITl,aSMR 


MOV 


LITND.RO 


ADD 


IECBAD.RO 


MOVB 


RO.aiOR 


DATACC 




MOV 


TAIND.RO 


ADD 


IECBAD.RO 


MOVB 


RO.aiOR 


BIS 


deiT2,aSMR 


CMP 


01204 .aCSR 


REU 


t AG'? 


ADP 


01204, aCSR 


ERROR 


19. 


1ST 


T STREP 


BEQ 


1* 


JMP 


REP.' 


UHITt 


MESEND 


RETURN 





BUILD MTA B 
it 

SET B TO TADS 

BUILD MLA B 
i' 

SET B TO LADS 

GOTO STANDBY STATE, B TO LACS 
LACS. STATE CH AND INT SET ? 
H-" YES, CONTINUE 
ELSE ERROR 

LOOP FOR ERROR 8 

CLEAR STATE CHANGE IN CSR 

LACS SET. STATE CHANGE AND INT RESET 
IF TRUE, CONTINUE 



LOOP FOR ERROR 9 

LEAVE STANDBY STATE 

STATE CHGE AND INT SET, LACS CLEAR ? 

IF YES, CONTINUE 



CLEAR STATE CHGE AND INT 
LOOP FOR ERROR 10 

UNLISTEN IECU B 

GOTO STANDBY STATE 
IS LACS RESET ? 
IF YES, CONTINUE 

LOOP FOR ERROR 11 
1 EAVE STANDBY STATE 
BUILD Ml A B 

SET B TO LAOS 

BUILD MTA B 

SET B TO TADS 

GOTO STANOB> STATE, SET B TO TACb 

TACS. STATE CHGE AND INT SET ? 

IF YES .CONTINUE 



TEST LOOP SELECTED ;' 
IF NOT ,i LAVE THE TEST 

j END OF TEST 



J 3 



IEC11 B 


n ST 


MACRO Ml 200 30 


-MAR -84 


16;11 P 


AGE 34 




TEST 3 : 


GENERAL 


INTERRUPT AND DMA FUNCTION TEST 






379 












.SBTTL 


TEST 3: GENERAL INTERRUPT 


380 


014352 








TEST3; 


WRITE 


MES10 { 


5» 1 


014362 


00573/ 


007152 






TST 


OUT FLU i 


38 t ? 


014366 


001375 








BNE 


.-4 { 


383 


014370 


104000 








SCOPE 




384 


014372 








REP3: 


MCLEAR 




385 


014406 










CACS 




386 


014450 










SETVEC 


OVECB,OINTTST,0340 ! 


38? 


014466 


013700 


026770 






MOV 


LIIND.RO t 


388 


014472 


063700 


026764 






ADD 


IECBAD.RO ; 


389 


0144 76 


110077 


012234 






MOVB 


RO.alOR \ 


390 


014502 










DATACC 




391 


014520 


013700 


026766 






MOV 


TAINO.RO 1 


392 


014 524 


063700 


026762 






ADD 


IECAA0.RO j 


393 


014550 


110077 


012202 






MOVB 


RO.alOR ; 


394 


014534 










DATACC 




395 


014552 


05277 7 


000004 


012154 




Brs 


0BIT2.8SMR { 


396 


014560 


00503/ 


027022 






CLR 


INTFLG ; 


397 


014564 


052777 


000 100 


012152 


STCHGE: 


BIS 


0fiIT6,aCSR j 


398 


014572 


012737 


177000 


027006 




MOV 


0177000, CNT1 j 


399 


014600 


005737 


027022 




1$: 


TST 


INTFLG i 


400 


014604 


001010 








BNE 


2$ j 


401 


014606 


005237 


027006 






INC 


CNT1 ; 


40? 


014612 


001372 








BNE 


n j 


405 


014614 


042777 


000100 


012122 




BIC 


0GIT6.aCSR ; 


404 


014622 










ERROR 


20. j 


405 


014626 


032777 


000100 


012110 


2$: 


BIT 


tlOO.SCSR i 


406 


014634 


001402 








BEQ 


3$ j 


40 7 


014636 










ERROR 


21. ; 


408 


014642 


0227/7 


001202 


012074 


3$: 


CMP 


01202, aCSR 


409 


014650 


001420 








BEQ 


NEXBII j 


410 


014652 










ADP 


01202, aCSR ; 


411 


014/04 










ERROR 


22. : 


412 


014/10 


104000 








SCOPE 




4 13 


014712 








NEXB1T: 


SETVEC 


0VECB,0INTSRV,0340 \ 


414 


014730 


005037 


027016 






CLR 


NEXFLG ; 


415 


014734 


042777 


177400 


012002 




BIC 


0177400, 3CSR j 


416 


014 74? 


022737 


157776 


007022 




CMP 


0157 776, MEMEND j 


4 17 


014/50 


001121 








BNE 


NEX1 j 


418 


014/52 


022737 


000003 


007024 




CMP 


03, MEMEND* 2 ; 


419 


014/60 


001115 








BNE 


NEX1 j 


420 


014762 


01273 7 


026722 


000004 




MOV 


0NEXMF.M.QO4 j 


421 


014770 


052777 


000060 


011746 




BIS 


060.SCSR j 


42? 


014 7/6 


012700 


160000 






MOV 


0160000, RO 


423 


015002 


005 710 






l$j 


TST 


(RO) j 


424 


015004 


005/37 


027016 






TST 


NF.xFUi ; 


425 


015010 


001003 








BNE 


2$ 


426 


015012 


062700 


000002 






ADD 


02, RO ; 


42/ 


015016 


0007 71 








BR 


It J 


428 


015020 


012737 


000006 


000004 


2$: 


MOV 


06,8)04 j 


429 


015026 


0100/7 


011716 






MOV 


RO.aBAR j 


4 30 


015032 


012777 


000001 


011706 




MOV 


oi.aecR i 


4 31 


015040 


052 7 / 7 


000101 


0116 76 




RES 


OlOl.aCSR : 


4 3? 


015046 


112777 


000252 


011662 




MOVB 


0252, alOR ; 


4 V3 


015054 


012737 


1 7 7000 


0? 7006 




MOV 


01 77000. CNT1 


4 54 


015062 


032/7 7 


100000 


011642 


6$: 


BIT 


0BIT15,aCIR j 


4 35 


015070 


001007 








BNE 


3$ ; 



SEQ 100 



AND DMA FUNCTION TEST 
WAIT FOR ANY OUTPUT COMPLETE 



RUILD ML A B 
■t 

SET B TO LADS 

BUILD MTA A 

SET A TO TADS 

GOTO STANDBY ,SF.T A TO TACS,B TO LACS 

ENABLE INTERRUPT 
PREPARE DELAY 
HAS INTERRUPT OCCURRED ? 
IF YES, CONTINUE 



DISABLE INTERRUPTS 

IS INTERRUPT ENABLE BIT RESET ? 
IE YE 5. CONTINUE 

CAUSED STATE CHGE THE INTERRUPT ? 
IE YES, CONTINUE 



CLEPR INTERRUPT CAUSING BITS 



128K MEMORY ? 

SETUP VECTOR 

ENABLE ADDRESSING OVER 32K 
TRY FIRST ADDRESS IN I/O PAGE 
NON-EXISTANT ADDRESS? 



IF NOT.TR^i NEXT ONE 

REBUILD VECTOR 

NEX -ADORE _ ". TO BAR 

PRFPARE ¥\iA 

ENABLE INTERRUPT AND RWUON U)MA ) 

DUMMY VALUE TO OUTPUT REGISTER 

PREPARE DEI Al 

DATA ACCEPTED ; 

IE YES, CONTINUE 



IECU TEST 
TEST 5: GFNERAL 



MACRO M1200 50 -MAR -8* 16:11 PAGF 34 1 
INTERRUPT AND DMA FUNCTION TEST 



l<8 



SEQ 101 



4 56 

4 57 

4 38 

439 

440 

441 

44 ? 

44 5 

444 

445 

446 

44 7 

448 

449 

450 

451 

452 

455 

454 

4 55 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

4 70 

4 71 

4 72 

473 

4 74 

4 75 

4 76 

47/ 

4 78 

4 79 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

4<)2 



015072 

015076 

015102 

015104 

015110 

015116 

015120 

015124 

015126 

015134 

015140 

015146 

015150 

01520;? 

015206 

015212 

015214 

01522? 

015250 

015232 

015240 

015246 

015254 

015262 

015270 

015276 

015304 

015306 

01531? 

015316 

015320 

015324 

015332 

015334 

015340 

015342 

015350 

015354 

01536? 

015364 

015416 

015422 

015424 

0154 32 

015440 

015442 

015450 

015456 

015464 

0154 72 

015500 

015506 

015510 

015514 

015520 

01552? 

015526 



005237 
005/37 
001367 

032777 
001410 
005257 
001371 
042777 

02? 7/7 
001417 



000137 
104000 
042777 
032737 
001075 
052777 
012777 
012777 
052777 
112777 
012737 
032777 
00100 7 
005237 
005737 
001367 

032777 
001410 
005237 
001371 
042777 



001420 



104000 
042/77 
032737 

001072 
052777 
012777 
052777 

112777 
012/37 
032777 
001007 
005237 
005/3 7 
00136 7 



02 7006 
027006 



000100 011626 3$ 

027006 

000100 011610 

100262 011576 4$ 



016216 

177760 
000002 

000040 

000000 
000001 
000101 
000252 
177000 
100000 

027006 
027006 



000100 
027006 
000100 
100242 



011522 
007024 

011504 

011502 
011472 
011462 
011446 
027006 
011426 



000020 
000000 
000101 
000252 
17/000 
100000 

027006 

027006 



011274 
01127? 
011260 
011244 
027006 
011224 



5$: 
NEX1; 



5$: 



011412 1$ 

011374 
011362 2$ 



177760 011312 NEX2 
000001 007024 



5$ 



032777 000100 011210 2i: 



INC 


CNT1 


TST 


CNT1 


BNE 


6$ 


ERROR 


23. 


BIT 


#BlT6,aCSR 


BEQ 


4$ 


INC 


CNT1 


BNE 


3$ 


BIC 


#eiT6,acsR 


ERROR 


24. 


CMP 


<n00262,S)CSR 


BEQ 


5* 


ADP 


0100262, aCSR 


ERROR 


25. 


JMP 


BCOVFL 


SCOPE 




BIC 


$177760, SCSR 


BIT 


#2,MEMEND*2 


BNE 


NEX2 


BIS 


#40,SCSR 


MOV 


#0,88AR 


MOV 


ai.aecR 


BIS 


oioi, acsR 


MOVB 


#?52,«I0R 


MOV 


#177000. CNT1 


BIT 


#BIT15,3CIR 


BNE 


11 


INC 


CNT1 


TST 


CNT1 


BNE 


5$ 


ERROR 


26. 


BIT 


#BIT6,SCSR 


BEQ 


2$ 


INC 


CNT1 


BNE 


1$ 


BIC 


#6IT6,aCSH 


ERROR 


27. 


CMP 


#100242. aCSR 


BEQ 


NEX2 


ADP 


#100242, aCSR 


ERROR 


28. 


SCOPE 




BIC 


#177760, aCSR 


BIT 


#1,MEMEND*2 


RNE 


NF.X3 


BIS 


#20,aCSR 


MOV 


#0 , 36 AR 


BIS 


4101.3CSR 


MOVR 


#?52.»T0R 


MOV 


#17/000, CNT1 


BIT 


#BIT15,UCIR 


BNE 


?$ 


iNC 


CNT1 


TST 


CNT1 


BNt 


5$ 


[ RROR 


?9. 


BIT 


#BIT6.aCSR 



l IF NOT, WAIT A WHILE 

i WAITLOOP FINISHED ? 

J 

( 

l HAS INTERRUPT OCCURRED ? 

j IF YES, CONTINUE 



l DISABLE INTERRUPTS 

} CAUSED NXM THE INTERRUPT ? 
IF YES, CONTINUE 



i CLEAR INTERRUPT CAUSING BITS 
5 MEMORY EXISTS ? 

! SELECT BUS ADDRESS 400000 



PREPARE BCR 

ENABLE INTERRUPT AND FUNCTION (DMA) 

DUMMY VALUE TO OUTPUT REGISTER 

PREPARE DELAY 

DATA ACCFPTED ? 

IF YES, CONTINUE. 

IF NOT, WAIT A WHILE 

WAITLOOP FINISHED ? 



HAS INTERRUPT OCCURRED ? 
IF YES, CONTINUE 



DISABLE INTERRUPTS 

CAUSED NXM THE INTERRUPT ? 
IF YES, CONTINUE 



MEMORY EXISTS ? 

SELECT BUS ADDRESS 200000 

ENABLE INTERRUPT AND FUNCTION ^DMA) 
DUMMY VAl UE TO OUTPUT REGISTER 
PREPARE DELAY 
DATA ACCEPTED ? 

IF YES .CONTINUE 

IF NOT, WAIT A WHILE 

WAITLOOP FINISHED ? 



HAS INTERRUPT OCCURRED 



IECll-B TEST MACRO M1200 30 -MAR -84 16; 11 PAGE 34-2 
TEST 3: GENERAL INTERRUPT AND DMA FUNCTION TEST 



L8 



SEQ 102 



493 015534 


001410 








BEQ 


3$ 


494 015536 


005237 


027006 






INC 


CNTl 


495 015542 


001371 








BNE 


2* 


496 015544 


042777 


000100 


011172 




BIC 


4BIT6,aCSR 


497 015552 










ERROR 


30, 


4 C >3 015556 


022777 


100222 


011160 


3$; 


CMP 


4100222, QCSR 


499 015564 


001420 








BEQ 


NEX3 


500 015566 










ADP 


4100222, 3CSR 


501 015620 










ERROR 


31. 


502 015624 


104000 








SCOPE 




503 015626 


042777 


177760 


011110 


NEX3: 


BIC 


♦177760.BCSR 


504 015634 


032737 


100000 


007022 




BIT 


4BIT15.MEMEND 


505 015642 


001067 








BNE 


NEX4 


506 015644 


012777 


100000 


011076 




MOV 


4iooooo, aeAR 


507 015652 


052777 


000101 


011064 




BIS 


♦101.SCSR 


508 015660 


112777 


000252 


011050 




MOVB 


4252, SIOR 


509 015666 


012737 


177000 


027006 




MOV 


4177000 I CNT1 


510 015674 


03277/ 


100000 


011030 


5$: 


BIT 


4BIT15.QCIR 


511 015702 


00100 7 








BNE 


2$ 


512 015704 


005237 


027006 






INC 


CNTl 


513 015710 


005737 


027006 






TST 


CNTl 


514 015714 


001367 








BNE 


5$ 


515 015716 










ERROR 


32. 


516 015722 


032777 


000100 


011014 


2$: 


BIT 


4BIT6,SCSR 


517 015730 


001410 








BEQ 


3$ 


518 015732 


00523 7 


027006 






INC 


CNTl 


519 015736 


001371 








BNE 


2* 


520 015/40 


042777 


000100 


0107 76 




BIC 


4BIT6.8CSR 


521 015746 










ERROR 


33. 


522 015752 


02277 7 


100202 


010764 


3$: 


CMP 


4100202, 5)CSR 


523 015760 


001420 








BEQ 


NEX4 


524 015762 










ADP 


4100202, acsR 


525 016014 










ERROR 


34. 


526 016020 


104000 








SCOPE 




527 016022 


042777 


177400 


010714 


NEX4 : 


BIC 


4177400, o)CSR 


528 016030 


032737 


040000 


00 7022 




BIT 


4BIT14.MEMEND 


529 016036 


001067 








BNE 


BCOVKL 


530 016040 


012777 


040000 


010702 




MOV 


♦40000, SB AR 


531 016046 


052777 


000101 


010670 




BIS 


4101, aCSR 


532 016054 


112777 


000252 


010654 




MOVB 


4252. alOR 


533 016062 


012737 


177000 


027006 




MOV 


4177000, CNTl 


534 016070 


032777 


100000 


010634 


5$: 


BIT 


4BIT15,aClR 


535 016076 


001007 








BNE 


14 


536 016100 


005237 


02 7006 






INC 


CNTl 


537 016104 


005737 


027006 






1ST 


CNTl 


538 016110 


00136 7 








BNE 


5$ 


539 U16U2 










ERROR 


35. 


540 016116 


0327 7 7 


000100 


010620 


1*: 


BIT 


4RIT6.8CSR 


541 016124 


001410 








BEQ 


2$ 


542 016126 


005237 


027006 






INC 


CNTl 


543 016132 


001371 








BNE 


IS 


544 016134 


042777 


000100 


010602 




BIC 


♦HITb.aCSR 


545 016142 










ERROR 


36. 


546 016146 


0227// 


100202 


010570 


2$: 


CMP 


4 1 00202, aCSR 


54 7 016154 


001420 








BEQ 


BCOVKL 


540 016156 










ADP 


4100202, aCSR 


549 01623 










ERROR 


37, 



IF YES, CONTINUE 



DISABLE INTERRUPTS 

CAUSED NXM THE INTERRUPT ? 

IF YES, CONTINUE 



MEMORY EXISTS ? 

SELECT BUS ADDRESS 100000 

ENABLE INTERRUPT AND FUNCTION CDMA) 

DUMMY VALUE TO OUTPUT REGISTER 

PREPARE DELAY 

DATA ACCEPTED ? 

IK YES, CONTINUE 

!*■ NOT, WAIT A WHILE 

WAITLOOP FINISHED ? 



HAS INTERRUPT OCCURRED ? 
IF YES, CONTINUE 



DISABLE INTERRUPTS 

CAUSED NXM THE INTERRUPT ? 
IF YES, CONTINUE 



CLEAR INTERRUPT CAUSING BITS 
MEMORY EXISTS ? 

SELEC1 BUS ADDRESS 40000 

ENABLE INTERRUPT AND FUNCTION CDMA) 

DUMMY VALUE TO OUTPUT RfcGISTER 

PREPARE DELAY 

DATA ACCEPTED ? 

IF YES, CONTINUE 

IF NOT, WAIT A WHILE 

WAITLOOP FINISHED ? 



HAS INTERRUPT OCCURRED ? 
IF YES, CONTINUE 



DISABLE INTERRUPTS 

CAUSED NXM THE INTERRUPT ? 
IF YES, CONTINUE 



KAi^i 



M8 



m\ 



l s! Mm. 


MACRO M 
INTERRU 


W°8nd 8 


-MAH -84 
MA FUNCT 


16:11 H 

ION TEST 


AGE 34-3 




550 016214 


104000 








SCOPE 




551 016216 


042777 


177760 


010520 


BCOVFL: 


BIC 


#177760,SCSR 


552 016224 


012777 


177777 


010514 




MOV 


#177777, aBCR 


553 016232 


013777 


027002 


010510 




MOV 


BUFBB.aBAR 


554 016240 


052777 


000101 


010476 




BIS 


#101,BCSR 


555 016246 


112777 


000252 


010462 




MOVB 


#252.QI0R 


556 016254 


012737 


177000 


027006 




MOV 


#177000, CNU 


557 016262 


032777 


100000 


010442 


5$: 


BIT 


#BIT15,aCIR 


558 016270 


001007 








BNE 


1$ 


559 016272 


005237 


027006 






INC 


CNT1 


560 016276 


005737 


027006 






rsT 


CNT1 


561 016302 


001367 








BNE 


5$ 


562 016304 










ERROR 


38. 


563 016310 


032777 


000100 


010426 


1$: 


BIT 


#BIT6.SCSR 


564 016316 


001410 








BEQ 


2$ 


565 016320 


005237 


027006 






INC 


CNT1 


566 016324 


001371 








BNE 


1$ 


567 016326 


042777 


000100 


010410 




BIC 


#BIT6,aCSR 


568 016334 










ERROR 


39. 


569 016340 


022777 


004202 


010376 


2$: 


CMP 


44202, 3C5R 


570 016346 


00.1420 








BEQ 


ENDBIT 


571 016350 










ADP 


#4202,aCSR 


572 016402 










ERROR 


40, 


573 016406 


104000 








SCOPE 




574 016410 


042777 


177400 


010326 


ENDBIT: 


BIC 


#177400, 3CSR 


575 016416 


013777 


027002 


010324 




MOV 


BUFBB.SBAR 


576 016424 


012777 


000001 


010314 




MOV 


#1,S8CR 


577 016432 


012777 


100777 


010312 




MOV 


#100777, SMCR 


578 016440 


052777 


000101 


010276 




BIS 


•101.8CSR 


579 016446 


112777 


000377 


010262 




MOVB 


#377,a.I0R 


580 016454 


012737 


177000 


027006 




MOV 


#177000. CNT1 


581 016462 


032777 


100000 


010242 


5$: 


BIT 


#BIT15,aCIR 


582 016470 


00100/ 








BNE 


1$ 


583 016472 


005237 


027006 






INC 


CNT1 


584 0164 76 


005737 


027006 






TST 


CNT1 


585 016502 


001367 








BNE 


5$ 


586 016504 










ERROR 


41. 


587 016510 


032 777 


000100 


010226 


1$: 


BIT 


#BIT6,aCSR 


588 016516 


001410 








BEQ 


2$ 


589 016520 


005237 


027006 






INC 


CNT1 


590 016524 


001371 








BNF. 


1$ 


591 016526 


042777 


000100 


010210 




BIC 


#BIT6,aCSR 


592 016534 










ERROR 


42. 


593 016540 


022777 


002202 


010176 


2$! 


CMP 


#2202. QCSR 


594 016546 


001417 








BEQ 


3$ 


595 016550 










ADP 


#2202, aCSR 


596 016602 










ERROR 


43. 


597 016606 


005737 


027024 




3$: 


TST 


TSTREP 


598 016612 


001403 








BEQ 


PR 


599 016614 


OOOi37 


014372 






JMP 


REP3 


600 016620 


104000 








SCOPE 




601. 016622 








PR: 


HEMVEC 


#VfcCB 


602 016630 










MCL.EAR 




603 016644 










CACS 




604 016706 


013700 


026766 






MOV 


TAIND.RO 


605 016/12 


063/00 


026 762 






ADD 


If.CAAD.RO 


606 016716 


110077 


010014 






MOVB 


RO.alOR 



SEQ 103 



CL.EAR INTERRUPT CAUSING BITS 

PREPARE 8CR WITH HIGHEST VALUE 

FIRST BUFFER ADDRESS 

SET INTERRUPT ENABLE AND FUNCTION BIT 

DUMMY VALUE TO I/O REGISTER 

PREPARE DELAY 

DATA ACCEPTED ? 

IF YES. CONTINUE 

IF NOT, WAIT A WHILE 

WAITLOOP FINISHED ? 



HAS INTERRUPT OCCURRED ? 
IF YES, CONTINUE 



DISABLE INTERRUPTS 

CAUSED BC OVFL THE INTERRUPT ? 
IF YES, CONTINUE 



CL.EAR INTERRUPT CAUSING BUS 

FIRST BUFFER ADDRESS 

PREPARE BYTE COUNT REGISTER 

PREPARE MATCH CHARACTER 

ENABLE FUNCTION (DMA) AND INTERRUPT 

FIRST BYTE IN I/O REGISTER 

PREPARE DELAY 

DATA ACCEPTED ? 

IF YES .CONTINUE 

IF NUT, WAIT A WHILE 

WAITLOOP FINISHED ? 



HAS INTERRUPT OCCURRED ? 
IF YES .CONTINUE 



DISABLE INTERRUPTS 

CAUSED "END" THE INTERRUPT ? 
IF YES, CONTINUE 



TEST LOOP SELECTED ? 

IF NUT, DO THE REST OF "iu w T 



BUILD MTA A 
\ SET B TO TADS 



Kill 



IfcCll-B TES1 MACRO M1200 30-MAR-64 16:11 PAGE 34-4 
TEST 3: GENERAL INTERRUPT AND DMA ^UNCTION TEST 



N8 



SEQ 104 



607 016722 








DATACC 








608 016740 


013700 


026770 




MOV 


LIIND.RO 


j BUILD MLA B 




609 016744 


063700 


026764 




ADD 


IECBAD.RO 


i " 




610 016750 


110077 


007762 




MOVB 


RO.SIOR 


j SET A TO LADS 




611 016754 








DATACC 








612 016/72 


052777 


000004 007734 




BIS 


4BlT2,aSMR 


i GOTO STANDBY STATE 




613 017000 








SETVEC 


OVECB,OPRI0R,#34O 






614 017016 








PSET 


0340 


j SETUP PSW 




61b 017042 


0527 7 7 


000100 007674 




BIS 


0BIT6.3CSR 


j ENABLE INTERRUPT 




616 017050 


000240 




PR1: 


NOP 








617 017052 


000240 






NOP 








618 017054 


012703 


017112 




MOV 


OPRI7.R3 


! GET PRINTOUT ADUR . 


BR7 


619 017060 








PSET 


0300 


; ALLOW BR7 




620 017104 


000240 






NOP 








621 017106 


000240 






NOP 








622 017110 


000406 






BR 


PR2 


j GOTO PRIORITY 6 




623 017112 






PRI7: 


WRITE 


MES13 






624 017122 


000137 


017330 




JMP 


PRIEX 


1 LEAVE TEST 3 




625 017126 


012703 


017164 


PR2: 


MOV 


0PRI6,R3 


i GET PRINTOUT ADDR. 


BR6 


626 017132 








PSET 


#240 


5 ALLOW BR6 




627 017156 


000240 






NOP 








628 017160 


000240 






NOP 








629 017162 


000406 






BR 


pa 3 


{ GOTO PRIORITY 5 




630 017164 






PRI6: 


WRITE 


MES14 






631 0171/4 


000137 


017330 




JMP 


PRIEX 


j LEAVE TEST 3 




632 017200 


012703 


017236 


PR3: 


MOV 


OPRI5.R3 


j GET PRINTOUT ADDR. 


BR5 


633 017204 








PSET 


0200 


j ALLOW BR5 




634 017230 


000240 






NOP 








635 017232 


000240 






NOP 








636 017234 


000406 






BR 


PR4 


! GOTO PRIORITY 4 




637 017236 






PRI5: 


WRITE 


ME515 






638 017246 


000137 


017330 




JMP 


PRIEX 


! LEAVE TEST 3 




639 017252 


012703 


017310 


PR4: 


MOV 


0PRI4.R3 


5 GET PRINTOUT ADDR, 


BR4 


640 01/256 








PSET 


0140 


j ALLOW BR4 




641 017302 


000240 






NOP 








642 017304 


000240 






NOP 








64 3 017306 


000406 






BR 


PRERR 


5 GOTO ERROR 




644 017310 






PRI4: 


WRITE 


ME. 5 16 






645 017320 


000137 


017330 




JMP 


PRIEX 


j LEAVE TEST 3 




646 017324 






PRERR: 


ERROR 


44. 


5 NO INTERRUPT OCCURED 


64 / 017330 






PRIEXs 


REMVEC 


OVECB 






648 01/356 








WRITE 


MESEND 


j END OF TEST 




649 017346 


000207 






RETURN 









B9 



IECll H U ST MACRU M1200 
TEST 4; DMA -TRANSFER FROM B 



50 MAR -84 
TO A (H IS 



16:11 PAGE 55 
TALKER) 



651 
bW 
655 
654 
655 
656 

65 ; 
h^a 

65<i 

660 
661 
662 
665 
664 
6b r > 
666 
66/ 
666 
664 

6/0 

671 

6 72 
673 



01/550 
017560 
017564 

017566 
017574 
017576 
017406 
017420 
017426 
017456 
017444 
017450 
01/454 
017456 
017460 
017466 
C17472 
0174/6 
017500 
01750*? 
01/506 
017514 



00575/ 
001004 
015757 
000425 



010057 
0057 5 7 
0015/5 
104000 

00505 7 
015700 
005001 
110120 
00525 7 
025 75/ 
001405 



02 7024 

027000 027020 



02/020 
00/152 



027006 
027002 



027006 
027006 



T^.ST4 s 



BCIN4; 



REP4 



Hi 

aii 



027000 



.SBTTL TEST 4} DMA TRANSFER FROM 

WRITH MfcSll 

TST TSTRtP 

BNF BCIN4 

MOV BUFFL.BCINP 

BR REP4 

WRITE MES17 

DUMP OCT, BUFFI. 

READ OCT.RO 

IF RO HI BUFFI GOTO BCIN4 

IF RO EQ *0 GOTO BCIN4 

MOV RO.BCINP 

TST OUTKLG 

BNE . -4 

SCOPE 

REMVEC OVECB 

Cl.R CNT1 

MOV BUFBB.RO 

CLR Rl 

Move Ri.cno)* 

INC CNTl 

CUP CNTi.BUFFL 

BEQ 3* 



SEO 105 



B TO A CB IS TALKER) 

TEST LOOP SELECTED ? 

USE MAXIMAL BUFFER LENGTH 

REQUEST B^TF COUNT 
MAXIMAL INPUT 



SAVE Bt Tfc COUNT 

WAIT FOR ANY OUTPUT COMPLETE 



PREPARE 
BUFFER B 

UITH 

CONSECUTIVE 
VALUtS 



cy 



mv> m.numwm ^m-n m^^ 



«*-. 



SEQ 106 



».?5 017516 


005201 








INC 


Rl 


6/6 017520 


022701 


000400 






CMP 


0400.R1 


67 7 017524 


001365 








BNE 


2$ 


6/8 017526 


000 76 3 








BR 


1$ 


6 79 017530 


013700 


026 7 74 




31: 


MOV 


BUf'AB.RO 


680 017534 


112720 


0003 7 7 




4$: 


MOVB 


*377,(RO)» 


681 017540 


02003 7 


027002 






CMP 


RO.BUEBB 


68.? 017544 


001373 








BNE 


4$ 


683 017546 










MCLEAR 




684 017562 










CAC5 




685 017624 


013700 


026766 






MOV 


TAIND.RO 


68b 017630 


063700 


026/64 






ADD 


IECBAD.RO 


687 017634 


11007 7 


00/076 






MOVB 


RO.WIOR 


688 017640 










DATACC 




689 017656 


013700 


026 7 70 






MOV 


LIINO.RO 


690 017662 


063700 


026762 






ADD 


IECAAD.RO 


691 017666 


110077 


007044 






MOVB 


R0.8I0R 


692 017672 










DATACC 




693 017710 


052777 


000004 


007016 




BIS 


06IT2,aSMR 


694 01/716 


104000 








SCOPE 




695 017720 


042777 


177400 


007016 




BIC 


0177400, OCSR 


696 017726 


013777 


027002 


007014 




MOV 


BUFBB.QBAR 


697 017734 


013700 


027020 






MOV 


BCINP.RO 


698 017740 


005400 








NEG 


RO 


699 017742 


010077 


007000 






MOV 


R0.S6CR 


700 017746 


013701 


026 774 






MOV 


BUFAB.R1 


701 017752 










SETVEC 


#VFCB.&INTSRV,0340 


702 0177 70 


052777 


000101 


006746 




BIS 


•101.BCSR 


703 017 776 


00503 7 


027010 






CLR 


CNT2 


704 020002 


005037 


02/014 






CLR 


DONE 


705 020006 


005037 


02 7006 






CLR 


CNT1 


706 020012 


032777 


100000 


006712 


5*t 


BIT 


*eiU5 4 aciR 


707 020020 


001013 








BNE 


DMA4 


708 020022 


005237 


027006 






INC 


CNT1 


709 020026 


005737 


027006 






rsr 


CNT1 


710 020032 


001367 








BNE 


51 


711 02003* 










ERROR 


45. 


712 020040 


03277/ 


100000 


006664 


ACC4: 


BIT 


0eiU5,ttClH 


713 020046 


001774 








BEQ 


ACC4 


714 020050 


032777 


000100 


006666 


DMA4j 


BIT 


•ioo.scsr 


715 020056 


001410 








BEQ 


INTB4 


716 020060 


042777 


100000 


006644 




BIC 


06IT15.SCIR 


717 020066 


117721 


006646 






MOVB 


MIORHH.CRI). 


718 0200 72 


005257 


027010 






INC 


CNT2 


719 0200/b 


000 760 








BR 


ACC4 


720 020100 


012737 


150000 


027006 


INTB4: 


MOV 


0150000.CNTI 


721 020106 


005237 


02 70O6 




LAST4j 


INC 


CNTl 


722 020112 


005/37 


027006 






TST 


CNT1 


723 020116 


001426 








BEQ 


10$ 


724 020120 


032777 


100000 


006604 




BIT 


•BUlb.HCIR 


725 020126 


001767 








BtU 


I AST4 


726 020130 


005237 


027010 




<>«: 


INC 


CNT C ' 


72' 020134 


005737 


02 7014 






TST 


DONE 


728 020140 


00102* 








BNE 


in 


729 020142 


0427 7 7 


100000 


006562 




BIC 


0BIT15.UCIR 


730 020150 


ii7/vn 


006564 






MOVB 


WlOftHH.(Rl )♦ 


731 020154 


023737 


027010 


02 7020 




CMP 


CNT2*UCINP 



FROM 
37 7 

OCTAL 

SET ALL 
BITS 
IN 
BUFFER A 



BUILD MTA B 

SET B TO TADS 

BU T ID MIA A 

SET A TO LADS 

GOTO STANDBY STATE 

CLEAR INTERRUPT CAUSING BIT', 
FIRST BUFFER ADDRESS 
PREPARE BYTE COUNT REGISTER 

POINTER TO BUFFER A 

ENABLE FUNCTION (DMA) AND INTERRUPT 



DATA ACCEPTED ? 
IF YES ♦CONTINUE. 
IF NOT, WAIT A WHILE 
WAITLOOP FINISHED ? 



DATA ACCEPTED ? 

IF YES. CONTINUE 

HAS INTERRUPT OCCURRED i 

IF YES. GET LAST Bl TE 

DATA TO BUf FER A 
BYTE COUNTER 

PREPARE DEI. At AFTER INTERRUPT B 



DATA ACCEPTED 7 
IF NOT. WAIT 
IF ItS.CMtCK \ OR 
CORRECT Bl TE CUUNT 



H» It TO HUM [R A 
ALL BITES DONE i 



D9 



IECU -B 


TEST 


MACRO M1200 30 


-MAR -84 


16:11 


PAGE 36 1 




TEST 4: 


DMA -TRANSFER FROM B TO 


A (B IS 


TALKER) 






732 


020162 


001351 








BNE 


LAST4 


733 


020164 


052737 


177777 


027014 




BIS 


0177777, DONE 


7 34 


020172 


000745 








BR 


LAST4 


735 


020174 


005737 


027014 




10$ j 


TST 


DONE 


736 


020200 


001005 








BNE 


12$ 


737 


020202 










ERROR 


46. 


7 38 


020206 


000402 








BR 


12$ 


739 


020210 








lit: 


ERROR 


47, 


740 


020214 


022777 


004204 


006522 


12$: 


CMP 


04204, BC5R 


741 


020222 


001417 








BEQ 


13$ 


742 


020224 










ADP 


04204 ,NCSR 


74 3 


020256 










ERROR 


48, 


744 


020262 


013700 


026774 




13>j 


MOV 


BUFAB.RO 


745 


020266 


013701 


027002 






MOV 


BUFBB.R1 


746 


020272 


005037 


027006 






CLR 


CNT1 


74 7 


020276 


005237 


027006 




CMP4: 


INC 


CNT1 


748 


020302 


122021 








CMPB 


(RO)»,CRn» 


749 


020304 


001440 








BEQ 


14$ 


750 


020306 


114037 


027026 






MOVB 


-(RO).ASAVE 


751 


020312 


114137 


027030 






MOVB 


-(R1),BSAVE 


752 


020316 


032737 


040000 


007160 




BIT 


06IT14,PSDSWR 


753 


020324 


001030 








BNE 


14$ 


754 


020326 










WRITE 


MES18 


755 


020336 










Dl*1P 


0CT.CNT1 


756 


020350 










ADP 


BSAVE,ASAVE 


757 


020402 










ERROR 


49. 


758 


020406 


023737 


027006 


027020 


14$: 


CMP 


CNT1.BCINP 


759 


020414 


001330 








BNE 


CMP4 


760 


020416 


005737 


027024 






TST 


TSTREP 


761 


020422 


001402 








BEQ 


15$ 


762 


020424 


000137 


017450 






JMP 


REP4 


763 


020430 








15$: 


WRITE 


MESEND 


764 


020440 


000207 








RETURN 





StQ 107 



IF YES, 
SET FLAG 

ALL DONE ? 

NOT ALL BYTES TRANSFERRED 

TO MAN* BYTES TRANSFERRED 
CAUSED "BC OVFL" THE INTERRUPT 

IF YES, CONTINUE 



PROVIDE FIRST BYTE OF BUfFf-H A 
PROVIDE FIRST BYTE OF BUFFER B 

BYTE COUNT 

BUFFER A EQUAL TO BUFFER B 

IF YES. CONTINUE 

IF NOT, SAVE DATA 

PRINTOUT ALLOWED ? 

WRITE BYTE COUNT 
DUMP NUMBER 



ALL BYTES COMPARED ? 
IF NOT.GET NEXT ONE 
TEST LOOP SELECTED ? 
IF NOT, I EAVE THE TEST 

END OF TEST 



E9 



IEC11-B 


TEST 


MACRO M1200 30 


-MAR -84 


TEST 5: 


DMA-TRANSFER FROM A TO 


3 (B IS 


766 










767 


020442 








760 


020452 


005737 


02 7024 




769 


020456 


001004 






770 


020460 


013737 


027000 


027020 


771 


020466 


000425 






77? 


0204 70 








773 


020500 








774 


020512 








775 


020520 








7 76 


020530 








777 


020536 


010037 


027020 




778 


020542 


005737 


007152 




779 


020546 


001375 






730 


020550 


104000 






781 


020552 








782 


020560 


013700 


026774 




783 


020564 


005001 






784 


020566 


110120 






785 


020570 


020037 


027002 




786 


020574 


001405 






787 


020576 


005201 






788 


020600 


022701 


000400 




789 


020604 


001370 






790 


020606 


000766 






791 


020610 


005037 


027006 




792 


020614 


013700 


027002 




793 


020620 


112720 


0003 7 7 




794 


020624 


005237 


027006 




795 


020630 


023737 


027000 


027006 


796 


020636 


001370 






797 


020640 








798 


020654 








799 


020716 


013700 


026766 




800 


020722 


063 700 


026762 




801 


020726 


110077 


006004 




802 


020732 








803 


020750 


013700 


026 770 




804 


020754 


063700 


026 764 




805 


020760 


110077 


005752 




806 


020764 








807 


021002 


052777 


000004 


005 724 


808 


021010 


104 000 






809 


021012 


042777 


177400 


0C5724 


810 


021020 


013777 


027002 


005722 


an 


021026 


013700 


027020 




812 


021032 


005400 






813 


021034 


010077 


005706 




814 


021040 


013701 


026774 




815 


021044 








816 


021062 


052777 


000101 


005654 


817 


021070 


112177 


005642 




818 


021074 








819 


021112 


032/77 


000100 


005624 


820 


021120 


00136? 






821 


021122 


022 777 


004202 


005614 


822 


021130 


001417 







16:11 
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LISTENER) 






.SBTTL 


TEST 5: DMA-TRANSF 


TESTS i 


WRITE 


MES12 




TST 


TSTREP 




BNE 


BCIN5 




MOV 


BUFFL, BCINP 




BR 


REP5 


BCIN5 


WRITE 


MES17 




DUMP 


OCT, BUFFL 




READ 


OCT,RO 




IF RO HI BUFFL GOTO BCIN5 




IF RO EQ #0 GOTO BCIN5 




MOV 


RO, BCINP 


REP5: 


TST 


OUTFLG 




BNE 


. -4 




SCOPE 






REMVEC 


OVECB 




MOV 


BUFAB,R0 


1$: 


CLR 


Rl 


2$; 


MOVB 


Rl.(RO)* 




CMP 


RO.BUFBB 




BEQ 


31 




INC 


Rl 




CMP 


$400, Rl 




BNE 


2$ 




BR 


1$ 


3$: 


CLR 


CNT1 




MOV 


BUFBB.RO 


4$: 


MOVB 


0377, (R0)» 




INC 


CNT1 




CMP 


BUFFL, CNT1 




BNE 


4$ 




MCLEAR 






CACS 






MOV 


TAIND.RO 




ADD 


IECAAD,RO 




MOVB 


RO.QIOR 




DATACC 






MOV 


LIINO,R0 




ADD 


ItlCBAO.RO 




MOVB 


RO.SIOR 




DATACC 






BIS 


0BIT2,aSMR 




SCOPE 






BIC 


♦ 1 77400. yCSR 




MOV 


BUf BB,6*3AR 




MOV 


BCINP, RO 




NEG 


RO 




MOV 


Ro.aecR 




MOV 


BUFAB,R1 




SETVEC 


0VECB.OINTSRV.O34 




BIS 


oioi, acsR 


5$t 


MOVB 
DATACC 


c«n»,sxoR 




BIT 


$100,o)CSR 




BNE 


5$ 




CMP 


#4202, QCSR 




BEQ 


6$ 



SEQ 108 



FROM A TO B CB IS LISTENER) 

TEST LOOP SELECTED ? 

USE MAXIMAL BUFFER LENGTH 

REQUEST BYTE COUNT 
MAXIMAL INPUT 



SAVE ByT£ COUNT 

WAIT FOR ANY OUTPUT COMPLETE 



PREPARE 

BUFFER A 

WITH 

CONSECUTIVE 

VALUES 

FROM 

0-377 

OCTAL 

SET 

ALL 

BITS 

IN 

BUFFER 

A 



BUILD MTA A 

SET A TO TADS 

BUILD ML A B 

SET B TO LADS 

GOTO STANDBY STATE 

CLEAR INTERRUPT CAUSING BITS 
FIRST BUFFER ADDRESS 
PREPARE BYTE COUNT REGISTER 

i' 
POINTER TO BUFFER A 

ENABLE FUNCTION (DMA) AND INTERRUPT 
DATA BYTE TO I/O REGISTER 

HAS INTERRUPT OCCURRED ? 

IF NOT. CONTINUE DMA 

CAUSED "BC OVH." THE INTERRUPT 

IF YES, CONTINUE 



rest 1 *? Mi*»m o F$m tSWk if^NEBy* 



37-1 



F9 



SEQ 109 



623 021132 








ADP 


44202, SJCSR 


824 021164 








ERROR 


50. 


825 021170 


013700 


0267 74 


64: 


MOV 


BUFAB.RO 


626 021174 


013701 


027002 




MOV 


BUFBB.R1 


827 021200 


005037 


027006 




CLR 


CNT1 


828 021204 


005237 


027006 


CMP5: 


INC 


CNT1 


829 021210 


122021 






CMPB 


(R0)».(R1)» 


830 021212 


001440 






BEQ 


7$ 


831 021214 


114037 


027026 




MOVB 


-CRO) # ASAVE 


832 021220 


114137 


027030 




MOVB 


-CRD.BSAVE 


833 021224 


032737 


040000 007160 




BIT 


0BIT14.PSDSWR 


834 021232 


001030 






BNE 


7$ 


835 021234 








WRITE 


MES18 


IV*6 021244 








DUMP 


OCT.CNU 


837 021256 








ADP 


ASAVE,BSAVE 


838 021310 








ERROR 


51. 


839 021314 


023737 


027006 027020 


7$: 


CMP 


CNT1.BCINP 


840 021322 


001330 






BNE 


CMP5 


841 021324 


005737 


027024 




TST 


TSTREP 


842 021330 


001402 






BEQ 


8$ 


843 021332 


000137 


020542 




JMP 


REP5 


844 021336 






9$j 


WRITE 


MESEND 


845 021346 


000207 






RETURN 





PROVIDE h LRST 
PROVIDE FIRST 



BYTE OF BUFFER A 
BYTE OF BUFFER B 



BYTE COUNT 

BUFFER A EQUAL TO BUFFER B 

IF YES, CONTINUE 

IF NOT, SAVE DATA 

PRINTOUT ALLOWED ? 



WRITE BYTE COUNT 
DUMP NUM8ER 

ALL BYTES COMPARED ? 
IF NOT, GET NEXT ONE 
TEST LOOP SELECTED ? 
IF NOT, LEAVE THE TEST 

END OF TEST 



G9 



IEC11-B 
TEST o: 

84 7 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

8 70 

871 

872 

873 

874 

875 

876 

877 

878 

679 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 



TEST MACRO M1200 30-MAR-84 16:11 PAGE 38 
MATCH CHARACTER REGISTER TEST (B IS LISTENERS 



SEQ 110 



021350 

021360 

021364 

021366 

021402 

021444 

021450 

021454 

021460 

021476 

021502 

021506 

021512 

021530 

021536 

021544 

021562 

021564 

021572 

021576 

021604 

021606 

021612 

021616 

021620 

021624 

021626 

021632 

021640 

021646 

021654 

021662 

021670 

021676 

021702 

021720 

021726 

021730 

021736 

021740 

021772 

021776 

022002 

022006 

022010 

022014 

022016 

022020 

022022 

0220/4 

022030 

0220^4 

022042 

022044 

022054 

0220o4 



005737 007152 
001375 



TEST6 



013700 
063700 
110077 

013700 
063700 
110077 

052777 
042777 

104000 
012737 
005037 
042777 
005001 
013700 
113720 
105201 
123701 
001372 
013701 
013777 
012777 
113777 
113777 
152777 
052777 
112177 

032777 
001363 
022777 
001417 



013700 
013701 
005002 
02023 7 
001442 
005202 
122021 
001772 
114037 
114137 
032737 
001010 



026766 
026762 
005256 

026770 
026764 
005224 

000004 
177400 



000001 
027012 
177400 

026774 
027012 

027010 

026774 
027002 
000001 
027010 
027012 
000200 
000101 
005034 

000100 

002202 



0267 74 
027002 

027010 



027026 
027030 
040000 



005176 
005200 



027010 
005140 



1$: 

REP6: 
BEG6: 

1$: 



005110 
005100 
005100 
005070 
005064 
005046 



005016 
005006 



DMA6{ 



3$: 
CMP6: 



007160 



5$; 



.SBTTL 

WRITE 

TST 

BNE 

MCLEAR 

CACS 

MOV 

ADD 

MOVB 

DATACC 

MOV 

ADD 

MOVB 

DATACC 

BIS 

BIC 

SETVEC 

SCOPE 

MOV 

CLR 

BIC 

CLR 

MOV 

MOVB 

INCB 

CMPB 

BNE 

MOV 

MOV 

MOV 

MOVB 

MOVB 

BISB 

BIS 

MOVB 

DATACC 

BIT 

BNE 

CMP 

BEQ 

ADP 

ERROR 

MOV 

MOV 

CLR 

CMP 

BEQ 

INC 

CMPB 

BEQ 

MOVB 

MOVB 

BIT 

BNE 

WRITE 

DUMP 

ADP 



TEST 6; MATCH CHARACTER 
MES19 
OUTFLG 
.-4 



TAIND.RO 

IECAAD.RO 

RO.QIOR 

LIIND.RO 

IECBAD.RO 

RO.aiOR 

0BIT2,aSMR 
0177400, 3CSR 
0VECB,OINTSRV,#340 

01.CNT2 

CHAR 

0177400, aCSR 

Rl 

BUFAB.RO 

CHAR.CRO)* 

Rl 

CNT2.R1 

1$ 

BUFAB.R1 

BUFBB.aBAR 

oi.aecR 

CNT2,aMCRHB 

CHAR.attCR 
0BIT7,aMCRHB 

noi.scsR 

CRl)*,aiOR 

oioo,acsR 

DMA6 

02202, acsn 

3$ 

02202, aCSR 

52. 

BUT AB.RO 

BUFBB.R1 

R2 

R2.CNT2 

6$ 

R2 

(R0)»,CR1)» 

CMP6 

-CRO.ASAVE 

-(RD.BSAVE 

0BIT14.PSDSWR 

5* 

MES18 

0CT.R2 

ASAVE.BSAVE 



REGISTER TEST CB IS LISTENER) 
WAIT FOR ANr OUTPUT COMPLETE 



BUILD MTA A 

SET A TO TADS 

BUILD MLA B 
i' 

SET B TO LADS 

GOTO STANDBY STATE 
CLEAR HIGH-BYTE IN CSR 



FIRST COUNT OF MCR 
FIRST CHARACTER OF MCR 
CLEAR INTERRUPT CAUSING BITS 

POINTER TO BUFFER A 
FILL BUFFER A 
WITH ONE CHARACTER 
LIMITED BY MATCH COUNT 

PROVIDE FIRST BUFFER ADDRESS A 

PREPARE BAR 

DUMMY VALUE TO BCR 

COUNT TO REGISTER 

CHARACTER TO REGISTER 

ENABLE MATCH 

ENABLE INTERRUPT AND DMA 

ONE BYTE TO IOR 

HAS INTERRUPT OCCURRED ? 
IF NOT, CONTINUE DMA 
CAUSED "END" THE INTERRUPT 
IF YES. CONTINUE 



PROVIDE FIRST BYTE OF BUFFER A 
PROVIDE FIRST BYTE OF BUFFER B 

END OF BYTE COUNT ? 

BYTE COUNT 

BUFFER A EQUAL TO BUFFER B 

IF YES, CONTINUE 

IF NOT. SAVE DATA 

PRINTOUT A'. LOWED > 

WRITE BYTE COUNT 
DUMP NUMBER 



IEC11-B IESI 



11 B TEST MACRO M1200 30 -MAR -84 16:11 PAGE 36-1 
T 6: HATCH CHARACTER REGISTER TEST (B IS LISTENER) 



-19 



SEQ 111 



904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 



022116 
022122 

022126 
022134 
022136 
022142 
022146 
022154 
022156 
022162 
022166 
022170 
022174 
022204 



005237 027012 

122737 000400 027012 

001220 

005037 027012 

005237 027010 

122737 000100 027010 

001402 

000137 021576 

005737 027024 

001402 

000137 021564 

000207 



6$: 



7$: 



8$; 



ERROR 


53. 


INC 


CHAR 


CMPB 


0400, CHAR 


BNE 


BEG6 


Cl.R 


CHAR 


INC 


CNT2 


CMPB 


0100, CNT2 


BEQ 


7$ 


JMP 


BEG6 


TST 


TSTREP 


BEQ 


8$ 


JMP 


REP6 


WRITE 


mesf.no 


RETURN 





; NEXT MATCH CHARACTER 
{ LAST CHARACTER ? 

j FIRST CHARACTER 
: NEXT MATCH COUNT 
I ALL COUNTS DONE ? 



TEST LOOP SELECTED ? 
j IF NOT, LEAVE THE TEST 

1 END OF TEST 



19 



IEC11 B 


TEST 


MACRO M1200 30 


-MAR -84 


16:11 P 


AGE 39 




TEST /; 


SERIAL 


POLL PROCEDURE TEST 








919 












.SBTTL 


TEST 7; SERIAL POLL 


920 


022206 








TEST7: 


WRITE 


MES20 


9c? 1 


022216 


005737 


007152 






TST 


OUTELG 


922 


022222 


001375 








BNE 


. -4 


925 


022224 










SETVEC 


OVECB.OINTSRV.T340 


924 


022242 








SETVEC 


OVECA.0INTA.O34O 


925 


022260 








REP 7 j 


MCLEAR 




926 


022274 










CACS 




927 


022336 


104000 








SCOPE 




928 


022340 


052777 


000002 


004 366 


POLLO: 


BIS 


OBITl.aSMR 


929 


022346 


112 7 77 


000030 


004362 




MOVB 


030,aiOR 


950 


022354 


013700 


026770 






MOV 


LIINO.RO 


951 


022360 


063700 


026762 






ADD 


1ECAmD.Ro 


932 


022364 


110077 


004346 






MOVB 


RO.SIOR 


933 


022370 










DATACC 




934 


022406 


012701 


oooooo 






MOV 


40, Rl 


935 


022412 


013700 


026766 




POt 


MOV 


TAINO.RO 


936 


022416 


060100 








AOO 


Rl.RO 


937 


022420 


110077 


004312 






MOVB 


RO.SIOR 


936 


022424 










DATACC 




939 


022442 


052777 


000004 


004264 




BIS 


*eiT2,asMR 


940 


022450 










STALL 




941 


022500 


122777 


OOOOOO 


004232 




CMPB 


OO.alORHB 


942 


022506 


001416 








BEQ 


5* 


943 


022510 


032737 


040000 


007160 




BIT 


06IU4.PSDSWR 


944 


022516 


001012 








BNE 


5$ 


945 


022520 










WRITE 


MES21 


946 


022530 










DUMP 


0CT.R1 


94 7 


022540 










ERROR 


54. 


948 


022544 


005201 






5$: 


INC 


Rl 


949 


022546 


022 701 


000037 






CMP 


037. Rl 


950 


022552 


001405 








he a 


7$ 


951 


022554 


052777 


000002 


004152 




BIS 


OfllU.SSMR 


952 


022562 


000137 


022412 






JMP 


PO 


953 


022566 


052777 


000002 


004140 


7$: 


BIS 


06IT1.3SMR 


954 


022574 


112777 


000031 


004134 




MOVB 


031.3I0R 


955 


022602 


052777 


000004 


004124 




BIS 


$eii2,asMR 


956 


022610 


000240 






DONO ; 


NOP 




957 


022612 


042777 


17 7400 


004112 




BIC 


0177400, MCIR 


958 


022620 


012737 


177700 


02 7006 




MOV 


017 7 700.CNT1 


959 


022626 


052777 


000400 


004110 




BIS 


obits, acsR 


960 


022634 


0527 77 


000100 


004070 




BIS 


oioo.aciR 


961 


022642 


0327/7 


000100 


004062 


1$: 


BIT 


oioo, qcir 


962 


022650 


00140/ 








BEQ 


2$ 


963 


022652 


005237 


027006 






INC 


CNT1 


964 


022656 


005737 


027006 






TST 


CNU 


965 


022662 


001367 








BNE 


1 J 


966 


022664 










ERROR 


55. 


96 7 


022670 


022/77 


040201 


004034 


25: 


CMP 


0C40201.SCIR 


968 


0226/6 


001417 








BEQ 


POL 1.1 


969 


022 /00 










ADP 


0040201, aciR 


9/0 


022/32 










ERROR 


56. 


9/1 


022 736 


104000 






POLL 1 : 


SCOPE 




9/2 


022 740 


00503 7 


02/014 






CI R 


DONE 


975 


022/44 


0527/7 


000002 


005/62 




HIS 


ODITl.aSMR 


9/4 


022/52 


112// 7 


000030 


003756 




MUVB 


030.UI0H 


9 75 


022/60 


013700 


026 7 70 






MOV 


L1IND.R0 



SEQ 112 



PROCEDURE TEST 

WAIT FOR ANY OUTPUT COMPLETE 



GOTO CACS 

SERIAL POLL ENABLE 

BUILD ML A A 

SET A TO LADS 

BUILD FIRST TALKER ADDRESS 

BUILD TALKER ADDRESS 

GOTO STANDBY STATE, A TO LACS 

STATUS BYTE IS ZERO ? 

IF YES, TRY THE NEXT ONE 
PRINTOUT SELECTED ? 

GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 

GET NEXT TALKER ADDRESS 
ALL DONE ? 

IF NOT, GOTO CACS 

AND SELECT THE NEXT ONE 

GOTO CACS 

DISABLE SERIAL POLL 

GOTO STANDBY STATE, A TO t ACS 

JUST ENTRY -POINT 

CLEAR INTERRUPT CAUSING BITS 

PREPARE DELAY 

REQUEST SERVICE 

ENABLE INTERRUPT A 

HAS INTERRUPT OCCURRED ? 

IF YES, CONTINUE 



CAUSED SRQ 1HE INTERRUPT ? 
IF YES. CONTINUE 



CLEAR DONE H AG 
GOTO CACS 
SERIAL POLL ENABLE 
HUH D Ml A A 



J 9 



IEC11 B 


TEST 


MACRO M1200 30 


MAR -84 


16 j 11 PAGE 39-1 




TEST 7: 


SERIAL 


POLL PROCEDURE TEST 








976 


022 764 


063700 


026 762 






ADD 


IECAAD.RO 


977 


0227 70 


110077 


003742 






MOVB 


RO.QIOR 


978 


022/74 










DATACC 




979 


023012 


012701 


000000 






MOV 


00, Rl 


980 


023016 


013 700 


026 766 




PI: 


MOV 


TAIND.RO 


981 


023022 


060100 








ADD 


Rl.RO 


982 


023024 


110077 


003706 






MOVB 


RO.SIOR 


983 


023030 










DATACC 




984 


023046 


052777 


000004 


003660 




BIS 


OBIT2.35MR 


985 


023054 










STALL 




986 


023104 


122777 


000000 


003626 




CMPB 


00.9IORHB 


98 7 


023112 


001452 








BF-Q 


5$ 


988 


023114 


120137 


026 764 






CMPB 


Rl.IECBAD 


989 


023120 


001416 








BEQ 


3$ 


990 


023122 


032737 


040000 


007160 




BIT 


06IT14.PSDSWR 


991 


023130 


001012 








BNE 


3$ 


992 


023132 










WRITE 


MES21 


993 


023142 










DUMP 


0CT.R1 


994 


023152 










ERROR 


57. 


995 


023156 


117702 


003556 




3$: 


MOVB 


aiORH6,R2 


996 


023162 


042702 


177400 






BIC 


0177400, R2 


997 


023166 


022702 


000100 






CMP 


0100, R2 


998 


023172 


001416 








BEQ 


4$ 


999 


0231 74 










ADP 


0100, R2 


1000 


023224 










ERROR 


58. 


1001 


023230 


012737 


177777 


027014 


4$: 


MOV 


0177777, DONE 


1002 


023236 


0004 1 1 








BR 


PEND1 


1003 


023240 


005201 






5$: 


INC 


Rl 


1004 


023242 


022701 


000037 






CMP 


037, Rl 


1005 


023246 


001405 








BEQ 


PFN01 


1006 


023250 


052777 


000002 


003456 




BIS 


0BIT1.SSMR 


1007 


023256 


00013 7 


023016 






JMP 


Pi 


1008 


023262 


005737 


027014 




PEND1: 


TST 


DONE 


J 009 


023266 


001002 








BNE 


7$ 


1010 


023270 










ERROR 


59, 


1011 


023274 


104000 






7$; 


SCOPE 




1012 


023276 


052777 


000002 


003430 




BIS 


OBITl.aSMR 


1013 


023304 


112777 


000031 


003424 




MOVB 


O31.QI0R 


1014 


023312 


052777 


000004 


003414 




BIS 


0BIT2,aSMR 


1015 


023320 


032777 


040000 


003404 




BIT 


0BIU4,3CIR 


1016 


023326 


001402 








BEQ 


D0N1 


1017 


023330 










ERROR 


60, 


1018 


023334 


000240 






DONlj 


NOP 




1019 


023336 










MCLfcAR 




1020 


023352 










CACS 




1021 


023414 


013700 


026770 






MOV 


LIIND.RO 


1022 


023420 


063700 


026764 






ADD 


IECBAD.RO 


1023 


023424 


110077 


003306 






MOVB 


R0.3I0R 


1024 


023430 










DATACC 




1025 


023446 


013700 


026766 






MOV 


TAIND.RO 


1026 


023452 


063 700 


026762 






ADD 


IECAAD.RO 


1027 


023456 


110077 


003254 






MOVB 


RO.aiOR 


1028 


023462 










DATACC 




1029 


023500 


052 / 7 7 


000004 


003226 




BIS 


0BlT2.aSMR 


10 30 


023'j06 


042/7/ 


177/60 


003230 


SPUVFL 


BIC 


01 77/60, IDCSH 


1031 


023514 


012 77 7 


1 7 7 7 7 7 


003224 




MOV 


01777/7, aBCR 


1032 


023*22 


013777 


027002 


003220 




MOV 


BUFBB.QBAR 



SEQ 113 



SET A TO LADS 

BUILD FIRST TALKER ADDRESS 

BUILD TALKER ADDRESS 



i GOTO STANDBY STATE, A TO LACS 



POLLING ADDRESS ? 

IF NOT, TRY THE NEXT ONE 

LEGAL ADDRESS ? 

IF YES.CONTINUE 

PRINTOUT SELECTED ? 



GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 

! SAVE STATUS BYTE 

STATUS BYTE OK ? 
IF YES, CONTINUE 



SET DOKc FLAG 

GOTO FINISH THIS TESTPART 
GET NEX1 TALKER ADDRESS 
ALL DONE ? 

IF NOT, GOTO CACS 

AND SELECT THE NEXT ONE 

ONE POLLING ADDRESS FOUND AT 

IF YES, GOTO NEXT PART OF THE 



LEAST 
TEST 



GOTO CACS 

DISABLE SERIAL POLL 

GOTO STANDBY STATE. A TO LACS 

SRQ CLEARED BY "SPD" ? 

IF YES, CONTINUE 

JUST ENTRY -POINT 



BUILD Ml. A B 

j SET B TO LADS 

I BUILD MTA A 

i SET A TO TADS 

GOTO STANDBY ,SET A TO TACS.U TO LACS 
CLEAR INTERRUPT CAUSING BITS 
PREPARE BCR WITH HIGHEST VALUE 
FIRST BUFFER ADDRESS 



I<9 



11-B 


TEST 


MACRO M 


1200 30 
CEDURE T 


-MAR- 84 


16:11 


PAGE 39-2 




T 7; 


SERIAL 


POLL. PRO 


EST 








1053 


023530 


052777 


000101 


003206 




BIS 


0101, SCSR i 


1034 


023536 


112777 


000252 


003172 




MOVB 


0252, alOR » 


1035 


023544 










DATACC 




1036 


023562 


032777 


000100 


003154 


1$: 


BIT 


0BIT6.3CSR } 


1037 


023570 


001374 








BNE 


1* J 


1038 


023572 


052777 


000400 


003144 




BIS 


OBITS, 3CSR ; 


1039 


023600 


104000 








SCOPE 




1040 


023602 


005037 


02/014 




P0LL2: 


CLR 


DONE { 


1041 


023606 


052777 


000002 


003120 




BIS 


aBITl.BSMR i 


1042 


023614 


112777 


000137 


003114 




MOVB 


0137, 3I0R s 


1043 


023622 










DATACC 




1044 


023640 


112777 


000030 


003070 




MOVB 


030.3I0R ! 


1045 


023646 


013700 


026770 






MOV 


LIIND,RO } 


1046 


023652 


063700 


026762 






ADD 


IECAAD.RO j 


104 7 


023656 


110077 


003054 






MOVB 


RO.QIOR ; 


1048 


023662 










DATACC 




1049 


023700 


012701 


000000 






MOV 


00. Rl ! 


1050 


023704 


013700 


026766 




P2j 


MOV 


TAIND.RO ; 


1051 


023710 


060100 








ADD 


Rl.RO ; 


105? 


023712 


110077 


003020 






MOVB 


RO.SIOR | 


1053 


023716 










DATACC 




1054 


023734 


052777 


000004 


002772 




BIS 


0BIT2.SSMR j 


1055 


023742 










STALL 




1056 


023772 


122777 


000000 


002740 




CMPB 


00,aiORHB i 


1057 


024000 


001452 








BEQ 


5$ ; 


1058 


024002 


120137 


026764 






CMPB 


Rl.IECBAD ; 


1059 


024006 


001416 








BEQ 


3* i 


1060 


024010 


032737 


040000 


007160 




BIT 


0BIT14,PSDSWR } 


1061 


024016 


001012 








ONE 


3* : 


1062 


024020 










WRITE 


MES21 j 


1063 


024030 










DUMP 


0CT.R1 i 


1064 


024040 










ERROR 


61. s 


1065 


024044 


117702 


002670 




3$: 


MOVB 


al0RHB,R2 j 


1066 


024050 


042702 


177400 






BIC 


0177400, R2 ; 


1067 


024054 


022702 


000104 






CMP 


0104, R2 j 


1068 


024060 


001416 








BEQ 


4$ { 


1069 


024062 










ADP 


0104, R2 ; 


1070 


024112 










ERROR 


62. ; 


1071 


024116 


012737 


177777 


027014 


4$: 


MOV 


01777 11, DONE j 


107? 


024124 


000411 








BR 


PEND2 ; 


1073 


024126 


005201 






5$: 


INC 


Rl ; 


1074 


024130 


022701 


000037 






CMP 


037.R1 5 


1075 


02'U34 


001405 








BEQ 


PEND2 ; 


1076 


024136 


052777 


000002 


002570 




BIS 


OfilTl.QSMR j 


1077 


024144 


000137 


023704 






JMP 


P2 j 


1078 


024150 


005737 


027014 




PEND2 


: TST 


DONE s 


1079 


024154 


001002 








bnp: 


7* ; 


.1080 


024156 










ERROR 


M. 


1081 


024 162 


0527 7 7 


000002 


002544 


7$: 


BIS 


ob tn.asMR j 


108? 


024170 


112777 


000031 


002540 




MOVB 


#3i,aioR { 


1083 


024176 


052777 


000004 


002530 




BIS 


0BIT2,aSMR ; 


1084 


024204 


000240 






DQN2; 


NOP 




1.085 


024206 










MCL.fc.AR 




1086 


024222 










CACS 




1087 


024264 


013700 


026 7 70 






MOV 


LIINO.RO { 


1088 


0242/0 


06 7 700 


026 764 






ADD 


TFCBAD.RO ; 


1089 


024274 


110077 


0024 3b 






MUVB 


RO.aiOR j 



SEQ 114 



SET INTERRUPT ENABLE AND FUNCTION BIT 
DUMMY VALUE TO I/O REGISTER 

HAS INTERRUPT OCCURRED ? 
IF YES, CONTINUE 
REQUEST SERVICE 

CLEAR DONE FLAG 

GOTO CACS 
UNTALK IFX11-A 

SERIAL POLL ENABLE 

BUILD MLA A 
■i 

SET A TO LADS 

BUILD FIRST TALKER ADDRESS 

BUILD TALKER ADDRESS 

GOTO STANDBY STATE, A TO LACS 

POLLING ADDRESS ? 

IF NOT, TRY THE NEXT ONE 

LEGAL ADDRESS ? 

IF YES. CONTINUE 

PRINTOUT SELECTED ? 

GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 

SAVE STATUS BYTE 

STATUS BYTE OK ? 
IF YES, CONTINUE 



SET DONE FLAG 
GOTO FINISH THIS TESTPART 
GET NEXT TALKER ADDRESS 
ALL DONE ? 

IF" NOT, GOTO CACS 

AND SELECT THE NEXT ONE 

ONE POLLING ADDRESS » OUND AT LEAjT ? 

IF YES, GOTO NEXT PART OF THE TEST 

GOTO CACS 

DISABl E SERIAL POLL 

GOTO STANDBY STATE, A TO LACS 

JUST ENTRY POINT 



nun D MLA H 
1 SET B TO LAOb 



L9 



lECll-B 
TEST 7: 



1090 
1091 
109? 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
HIP 
1113 
1114 
1115 
1116 
1117 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

113/ 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 



TEST 

SERIAL 

024300 

024316 

024322 

024326 

024332 

024350 

024356 

024364 

024372 

024400 

024406 

024414 

02442? 

024440 

024446 

024450 

024456 

024460 

024464 

024472 

024500 

024516 

024524 

024530 

024534 

024540 

024556 

024562 

024566 

024570 

024574 

024612 

024620 

024650 

024656 

024660 

024664 

024666 

024674 

02467b 

024 706 

024 716 

024722 

024 726 

024 732 

024 736 

Ois'740 

024770 

024/74 

025002 

025004 

025006 

02501? 

025014 

025022 

025026 

025032 



MACRO 
POLL PRO 



Ml 200 
OCEDURE 



30-MAR-64 
TEST 



013700 
063700 
110077 

052777 
042777 
013777 
012777 
012777 
052777 
112777 

032777 
001374 
052777 
104000 
00503 7 
052777 
112777 

112777 
013700 
063700 
110077 

012701 

013700 
060100 
110077 

052777 

122777 

001452 
120137 
001416 
032737 
001012 



117702 

042702 
02270? 
001416 



012737 

000411 
005201 
022701 
001405 
052777 
00013 7 
005/3 7 
001002 



026766 
026762 
002404 

000004 
17 7400 
027002 
000001 
100777 
000101 
000377 

000100 

000400 

027014 

000002 
000137 

000030 
026770 
026762 
002176 

000000 
026766 

002142 

000004 
000000 
026764 
040000 



002012 
177100 
000110 



SPEND 



002356 
002360 
002356 
002346 
002344 
002330 
002314 



002276 1$: 
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DATACC 

MOV 

ADO 

MOVB 

DATACC 



SEU 115 



000037 

000002 
02456? 
027014 



002266 



002242 
002236 

002212 



P0LL3 



P3 



002114 
002062 

007160 



3$ 



177777 027014 



001712 



4$; 
5$: 

PEND3 



BIS 

BIC 

MOV 

MOV 

MOV 

BIS 

MOVB 

DATACC 

BIT 

BNE 

BIS 

SCOPE 

CLR 

BIS 

MOVB 

DATACC 

MOVB 

MOV 

ADD 

MOVB 

DATACC 

MOV 

MOV 

ADD 

MOVB 

DATACC 

BIS 

STALL 

CMPB 

BEG) 

CMPB 

BEQ 

BIT 

BNE 

WRITE 

DUMP 

ERROR 

MOVB 

BIC 

CMP 

BEQ 

ADP 

ERROR 

MOV 

BR 

INC 

CMP 

BEQ 

BIS 

JMP 

r i ,T 

BNE 



TAIND.RO 

IECAAD.RO 

R0.3I0R 

4BIT2,aSMR 
0177400, aCSR 
BUFBB.aGAR 

oi.oecR 

010077/, SMCR 
tflOl.QCSR 
0377, QIOR 

*BIT6,aCSR 
1$ 

obits, acsR 

DONE 

OBITl.aSMR 
0137, aiOR 

O3O.al0R 
LIIND,RO 
IECAAD.RO 
RO,aiOR 

00. Rl 
TAIND,RO 

R1,R0 
RO.SIOR 

*eiT2,asMR 

OO.alORHB 
5$ 

Rl.IECBAD 

3$ 

0BIT14.PSDSWR 

3$ 

MES21 

0CT.R1 

64. 

alORHB.R? 

#1/7400, R2 

0110,R2 

4$ 

0110.R2 

65 . 

0177/77.DONE 
PEND3 

Rl 

037, Rl 

PFND3 

OB I T 1 , aSMR 

P3 

DONE 

/$ 



BUILD MTA A 

SET A TO TADS 

GOTO STANDS'. ,SET A TO TACS.B TO LACS 

CLEAR INTERRUPT CAUSING BITS 

FIRST BUFFER ADDRESS 

PREPARE BYTE COUNT REGISTER 

PREPARE MATCH CHARACTER 

ENABLE FUNCTION CDMA) AND INTERRUPT 

FIRST BYTE IN I/O REGISTER 

HAS INTERRUPT OCCURRED ? 
IF YES .CONTINUE 
REQUEST SERVICE 

CLEAR DONE FLAG 

GOTO CACS 
UNTALK IEC11-A 

SERIAL POLL ENABLE 

BUILD Mt.A A 
i' 

SET A TO LADS 

BUILD TIRST TALKER ADDRESS 

BUILD TALKER ADDRESS 

GOTO STANOBY STATF.A TO LACS 

POLLING ADDRESS ? 

IF NOT, TRY THE NEXT ONE 

LEGAL ADDRESS I 

IF YES, CONTINUE 
PRINTOUT SELECTED ? 

GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 

SAVE STATUS BYTE 

STATUS BYTE OK ? 
IF YES, CONTINUE 



SET DONE FLAG 
GOTO FINISH THIS TESTPART 
GET NEXT TALKER ADDRESS 
ALL DONE ? 

IF NOT. GOTO CACS 

AND SELECT THE NEXT UW 

ONE POLt 1NG ADDRESS FOUND Al tb.AS!' 

U YbS.UUTU NExl PARI l> 1Mb. It.sl 



MQ 



M9 



flit 1 ?? 

1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
11.81 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 



i. 



AL POLL 



^ CR P R 86i88R E 3 ?E§f " 94 16iU 



025034 
025040 
025046 
025054 

025062 
025064 

025100 

025142 

025146 

025152 

025156 

025174 

025200 

025204 

025210 

025226 

025234 

025240 

025246 

025254 

025262 

025266 

025270 

025274 

025276 

025300 

025306 

025312 

025320 

025326 

025334 

025352 

025360 

025362 

025370 

025372 

025376 

025404 

025412 

025430 

0254 36 

025442 

025446 

025452 

025470 

0254 74 

025500 

025502 

025506 

025524 

025532 

02556? 

025570 

025572 

0255/6 

025600 

025606 



052777 
112777 
052777 
000240 



013700 
063700 
110077 

013700 
063700 
110077 

052777 
005037 
042777 
012737 
052777 
012700 
005710 
005737 
001001 
000773 
012737 
010077 
C12777 
052777 
112777 

03277 7 
001374 
052777 
104000 
005037 
052777 
112777 

112777 

013700 
063700 
110077 

012701 
013700 
060100 
110077 

052777 

12277 7 

001452 
120137 

001416 
032/37 
001012 



000002 
000031 
000004 



026770 
026764 
001560 

026766 
026762 
001526 

000004 
027016 
177760 
026722 
000060 
160000 

027016 



000006 
001436 

000001 
000101 
000252 

000100 

000400 

027014 

000002 
000137 

000030 
026770 
026762 
001264 

000000 
026766 

001230 

000004 
000000 
026764 



001666 
001662 
001652 



001500 

001476 
000004 
001462 



001364 
001354 



001330 
001324 

001300 



7$ 



D0N3; 



SPNEX 



1$: 



000004 2$: 

001426 
001416 
001402 



3$; 



P0LL4 



P4: 



00120? 
001150 



040000 007160 
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ERROR 


66. 


BIS 


0BIT1 SSMR 


MOVB 


031 # BiOR 


BIS 


0BIT2.3SMR 


NOP 




MCLEAR 




CACS 




MOV 


l.IIND.RO 


ADD 


IECBAD.RO 


MOVB 


RO.SIOR 


DATACC 




MOV 


TAIND.RO 


ADD 


IECAAD.RO 


MOVB 


RO.QIOR 


DATACC 




BIS 


0BIT2,aSMR 


CLR 


nlEXFLG 


BIC 


0177760, aCSR 


MOV 


ONEXMEM.304 


BIS 


060.SCSR 


MOV 


fl60000.R0 


TST 


CRO) 


TST 


NEXFLG 


BNE 


?* 


BR 


1* 


MOV 


06,304 


MOV 


R0.6K3AR 


MOV 


Ol.aBCR 


BIS 


0101, SCSR 


MUVB 


0252, aiOR 


DATACC 




BIT 


0BIT6.3CSR 


BNE 


3$ 


BIS 


06IT8,aCSR 


SCOPE 




CLR 


DONE 


BIS 


OBIU.aSMR 


MOVB 


0137, 3I0R 


DATACC 




MOVB 


030,31'OR 


MOV 


L.IIND.RO 


ADD 


IECAAD.RO 


MOVB 


RO.aiOR 


DATACC 




MOV 


00, Rl 


MOV 


TAIND.RO 


ADD 


hi.ro 


MOVR 


RO.alOR 


DATACC 




BIS 


OBIT?,aSMR 


STALL 




CMPB 


OO.SIORHB 


HEU 


5$ 


CMPB 


Rl, tECBAD 


HEP. 


3$ 


HI ! 


#HXU4,PSD*'WR 


BNC 


3$ 



SEQ 116 



GOTO CACS 

DISABLE SERIAL POLL 

GOTO STANDBY STATE, A TO LACS 

JUST ENTRY -POINT 



BUILD MLA B 
it 

SET B TO LADS 

BUILD MTA A 

SET A TO TADS 

GOTO STANDBY ,SET A TO TACS.B TO LACS 

CLEAR INTERRUPT CAUSING BITS 



FIRST LOC IN I/O PAGE 
FIND A 
NON-EXISTANT 
MEMORY ADDRESS 



PREPARE BCR 

ENABLE INTERRUPT AND FUNCTION (DMA) 

DUMMY VALUE TO OUTPUT REGISTER 

HAS INTERRUPT OCCURRED ? 
IF YES. CONTINUE 
REQUEST SERVICE 

CLEAR DONE FLAG 

GOTO CACS 
UNTALK IEC11-A 

SERIAL POLL ENABLE 

BUILD MLA A 
i* 

SET A TO LADS 

BUILD FIRST TALKER ADDRESS 

BUILD TALKER ADDRESS 

GOTO STANDBY STATE, A TO LACS 

POLLING ADDRESS > 

U NOT, TRY THE NEXT ONE 

LEGAL ADDRESS > 

U YES, CONTINUE 

PRINTOUT SELECTED ? 



1U 



N9 



IEC11-B 


TEST 


MACRO M 


1200 30 
C^DURE Tl 


MAR -84 


16; 11 PAGE 39 5 




TEST 7: 


SERIAL 


POLL PRO 


= ST 








1204 


025610 










WRITE 


MES21 


1205 


025620 










DUMP 


0CT.R1 


1206 


025630 










ERROR 


67, 


1207 


025634 


117702 


001100 




3$: 


MOVB 


aiORHR,R2 


1208 


025640 


042702 


177400 






BIC 


#177400, R2 


1209 


025644 


022702 


000102 






CMP 


#102, R2 


1210 


025650 


001416 








BEQ 


4$ 


1211 


025652 










ADP 


#102, R2 


1212 


025702 










ERROR 


68. 


1213 


025706 


012737 


177777 


027014 


4$; 


MOV 


#177777, DONE 


1214 


025714 


000411 








BR 


PEND4 


1215 


025716 


005201 






S$: 


INC 


Rl 


1216 


025720 


022701 


000037 






CMP 


.737, Rl 


1217 


025724 


001405 








BEQ 


PEND4 


1216 


025726 


052777 


000002 


OC '.000 




BIS 


#eiTi,asMR 


1219 


025^34 


000137 


025474 






JMP 


P4 


1220 


025740 


005737 


027014 




PEND4: 


TST 


DONE 


1221 


025744 


001002 








BNE 


7$ 


1222 


025746 










ERROR 


69. 


1223 


025752 


052777 


000002 


000/54 


7$: 


BIS 


#BIT1,SSMR 


1224 


025760 


112777 


000031 


000750 




MOVB 


#3l,aiOR 


1225 


025766 


0527 7 7 


000004 


000740 




BIS 


#BIT2,3SMR 


1226 


025774 


000240 






D0N4j 


NOP 




1227 


025776 










MCLEAR 




1228 


026012 










CACS 




1229 


026054 


013700 


026766 






MOV 


TAIND.RO 


1230 


026060 


063700 


026764 






AOD 


IECBAD.RO 


1231 


026064 


110077 


000646 






MOVB 


RO.aiOR 


1232 


026070 










DATACC 




1233 


026106 


013700 


026770 






MOV 


l.IIND.RO 


1234 


026112 


063700 


026762 






ADD 


IECAAD.RO 


1235 


026116 


110077 


000614 






MOVB 


RO.aiOR 


1236 


026122 










DATACC 




1237 


026140 


052777 


000004 


000566 




BIS 


#8IT2,SSMR 


1238 


026146 


104000 








SCOPE 




1239 


026150 


042777 


177400 


000566 


SPB10A: 


BIC 


#177400. aCSR 


1240 


026156 


013777 


027002 


00564 




MOV 


BUFBB.3BAR 


1241 


026164 


013700 


027002 






MOV 


BUFBB.RO 


1242 


026170 


112710 


000000 






MOVB 


#0,CRO) 


J 243 


026174 


012700 


000001 






MOV 


#1,R0 


124^ 


026200 


005400 








NEG 


RO 


1245 


026202 


010077 


000540 






MOV 


RO,a«CR 


1246 


026206 


013701 


026774 






MOV 


BUFAB.R1 


1247 


026212 


052777 


000101 


000524 




BIS 


#101,aCSR 


.1248 


026220 










DATACC 




1249 


026236 


117721 


000476 






MOVB 


alORHB.CRD* 


1250 


026242 


032777 


000100 


0004 74 


1$: 


BIT 


#100,a)CSR 


1251 


026250 


001374 








BNE 


1$ 


1252 


026252 


0527 7 7 


000400 


000464 




BIS 


#BIT8,aCSR 


1253 


026260 


104000 








SCOPE 




1254 


026262 


00503 7 


027014 




POLLS: 


CI R 


DONE. 


1255 


026266 


0527 77 


000002 


0004 40 




BIS 


ttBlTl.aSMR 


1256 


0262/4 


112777 


000030 


C00434 




MOVB 


#30,aiOR 


1257 


026*02 


012701 


000000 






MOV 


#0,R1 


1258 


026306 


013700 


026766 




P5: 


MOV 


TAIND ,R0 


1259 


026312 


060100 








AOD 


Rl.RO 


1260 


026314 


110077 


0004 16 






MOVB 


RO.aiOR 



SEQ 117 



GIVE INFORMATION ABOUT 
ILLEGAL IEC-BUS ADDRESS 

SAVE STATUS BYTE 

STATUS BYTE OK ? 

IF YES, CONTINUE 



SET DONE FLAG 
GOTO FINISH THIS TESTPART 
GET NEXT TALKER ADDRESS 
ALL DONE ? 

TF NOT .GOTO CACS 

AND SELECT THE NEXT ONE 

ONE POLLING ADDRESS FOUND AT LEAST ? 

IF YES. GOTO NEXT PART OF THE TEST 

GOTO CACS 

DISABLE SERIAL POLL 

GOTO STANDBY STATE, A TO LACS 

JUST ENTRY -POINT 



BUILD MTA B 

SET B JO TADS 

BUILD Ml. A A 

SET A TO LADS 

GOTO STANDBY STATE 

CLEAR INTERRUPT CAUSING BITS 

FIRST BUFFER ADDRESS 

PREPARE 

TO TRANSFER "0" 

PREPARE BYTE COUNT REGISTER 



POINTER TO BLUFFER A 

ENABLE FUNCTION (DMA) AND INTERRUPT 

DATA TO BUFFER A 
HAS INTERRUPT OCCURRED ? 
If 1ES, CONTINUE 
REQUEST SERVICE 

CLEAR DONE FLAG 

GOTO CACS 

SERIAL POLL ENABLE 

BUILD FIRST TALKER ADDRESS 

BUILD TALKER ADDRESS 



BIO 



It CM B 


Tf ST 


MACRO M1200 30 


MAR 84 


16ill F 


AGE 39 6 




TEST 7; 


SERIAL 


POLL PROCEDURE TEST 








1261 


026320 










DATACC 




1262 


026336 


052777 


000004 


000370 




BIS 


0BIT2.8SMR 


1263 


026344 










STALL 




1264 


026374 


122777 


000000 


000336 




CMPR 


00,SIORHB 


1265 


026402 


001452 








BEQ 


51 


1266 


026404 


120137 


026764 






CMPB 


Rl.IECBAD 


1267 


026410 


001416 








BEQ 


31 


1268 


026412 


032737 


040000 


007160 




BIT 


OBIT14,PSD5WR 


1269 


026420 


001012 








BNE 


31 


1270 


026422 










WRITE 


MES21 


1271 


0264 32 










DUMP 


0CT,R1 


12 72 


026442 










ERROR 


70. 


1273 


026446 


117 702 


000266 




3$8 


MOVB 


BI0RHB.R2 


1274 


026452 


042702 


17 7400 






BIC 


0177400, R2 


1275 


026456 


022702 


000104 






CMP 


0104, R2 


12 76 


026462 


001416 








BEQ 


4$ 


12 7 7 


026464 










ADP 


0104, R2 


12 78 


026514 










ERROR 


71. 


12 79 


026520 


012737 


177777 


027014 


4«: 


MOV 


0177777, DONE 


1280 


026526 


0004 1 1 








BR 


PEN05 


1281 


026 S '0 


nCVO! 






5»: 


INC 


Rl 


1282 


026532 


022/01 


000037 






CMP 


037, Rl 


1283 


026536 


001405 








BfcU 


PEN05 


1284 


026540 


■>5277 7 


000002 


000166 




BIS 


OBITl.aSMR 


1285 


026546 


(.0013/ 


026306 






JMP 


P5 


1286 


026552 


05737 


027014 




PEN05} 


Tsr 


DONE 


1287 


026556 


Ol 1002 








BNE 


7$ 


1288 


026560 










ERROR 


72. 


1289 


026564 


05?777 


000002 


000142 


/ f : 


BIS 


Ofl I T 1 , SSMR 


1290 


0265 7? 


1U777 


0OO031 


000136 




MOVB 


031,QI0R 


1291 


026600 


05 J777 


000004 


000126 




BIS 


06IT2.aSMR 


1292 


026606 


000240 






00N5s 


NOP 




1295 


026610 


0057 3 7 


02 7024 






TST 


TSTREP 


1294 


026614 


001402 








BEQ 


8$ 


1295 


026616 


000137 


022260 






JMP 


Rf P ' 


129* 


026622 








et: 


WRIU 


ME SEND 


U97 


0*6632 


000207 








RETURN 





SEQ lift 



GOTO STANDSY STATE, A TO LACS 

POLLING ADDRESS ? 

IE NOT.TRr THE NEXT ONE 

LEGAL ADDRESS ? 

IE fES, CONTINUE 

PRINTOUT SELECTED ? 

GIVE INFORMATION ABOUT 
IlLEGAl IEC-BUS ADDRESS 

SAVE STATUS {WTF 

STATUS Brit OK ? 
IE YES, CONTINUE 



Sf- T DONE FLAG 
GOTO FINISH THIS TESTPART 
GET NEXT TALKER ADDRESS 
All DONE i 

IF NOT, GOTO CACS 

ANO SELECT THE NEX[ ONE 

ONE POLLING ADDRESS f OL^D AT 

IE YES, GOTO NEXT PART UE THE. 

GOTO CACS 

DISABLE SFRIAl POl I 

GOTO STANDBt STATE, A TO LACS 

JUST ENTRi POINT 

TEST l OOP SEl KTfcD 7 

\V NOT, if AVE THE TEST 



IK AST V 
TEST 



fcNU W 



TEST 



CIO 

l^^R^^^RVICroHT^e M- MAR- 84 16 ill PAGE 40 

.SBTTL INTERRUPT SERVICE ROUTINE 5 



SEQ 119 



1?^ 

1 500 

1501 
150? 

130? 026634 
?304 026642 
H>5 
Ob 
,1'.' 

08 026644 
i30 l > 026646 
1510 
1311 
1312 

1513 026650 

1514 026674 
1315 026700 
131b 

1317 
1318 
131<* 026702 

1320 026 710 

1321 026/12 
132? 026720 
1323 

1324 

1 325 

1326 026/22 
132/ 026730 
1 328 

1 5?S 
1330 



0527 3 7 
000002 



000240 
000002 



062706 
000113 



0327 7 7 
001003 
0527 7/ 
000002 



052737 
000002 



177777 027022 



000004 

040000 
000100 



000022 
000012 



177777 027016 



INTTST: BIT. 
RTI 

t 

INTSRV: NOP 
RTI 

J 
i 

PRIORj PSET 

ADD 
JMP 

J 
J 

iNTA: 

II: 

i 
i 

NEXMfcMt BIS 

RTI 

j 
i 
i 



BIT 
BNE 
BIS 
RTI 



<U77 7/7,INTF'LG 



00 

04.SP 
CR3) 



*niTi4,&K:iR 

u 

oioo,aciR 



4177777, NEXFLti 



I SET INTERRUPT Fl.Ali 

I 



i JUST ENTRY POINT 

I 



i CLR PSW 

j INCREASE SP Bf 4 

j U010 PRINTOUT 



I CAUSED SRQ THE INTERRUPT ? 

l 

l REENABLE INTERRUPT 

I 



i SET FLAG FOR NEX INDICATION 



D10 

TOaHt^ARIA» N1 ^° 30-MAR.84 16,11 PAW. 41 SEQ 120 

1335 .5BTTL CONSTANTS, VARIABLES 

1333 0^673^ 160010 CIR: 160010 I CIR ADDRESS DEFAULT VALUE 

1334 026734 L60012 SMR; 160012 t SMR 



E10 



IPpll:B U ST MACRO M1200 30-MAR-84 16:11 PAGE 4? 
CONSTANTS, VARIABLES 



SEQ 121 



1336 026736 160014 



IORj 



160014 



f I OR 



F10 



IEC11-B TEST MACRO M1200 
CONSTANTS, VARIABLES 



30-MAR-84 16: 11 PAGE 43 



SEQ 122 



1338 


026740 


160015 


1339 


026742 


160016 


1340 


026744 


160020 


1341 


026746 


160022 


1342 


026750 


160024 


1343 


026752 


160026 


1344 


026754 


160027 


1345 


026756 


000270 


1346 


026760 


000274 


1347 


026762 


000035 


1348 


026764 


000036 


1349 


026766 


000100 


1350 


026770 


000040 


1351 






1352 






1353 


026772 


000000 


1354 


026774 


000000 


1355 


026776 


000000 


1356 


02 7000 


000000 


1357 


027002 


oocooo 


1358 


027004 


000000 


1359 






1360 






1361 


027006 


000000 


1362 


027010 


000000 


1363 


027012 


ocoooo 


1364 


027014 


000000 


1365 


027016 


000000 


1366 


027020 


000000 


1367 


027022 


000000 


1368 


027024 


000000 


1369 


027026 


000000 


1370 


027030 


000000 



IORHB: 


160015 


VSR 




160016 


CSR 




160020 


BCR 




160022 


BAR 




160024 


MCR 




160026 


MCRHB: 


160027 


VECA: 


270 


VECB: 


274 


IECAAD; 35 


IECBAD; 36 


TAIND: 


100 


LUND: 

• 


40 


MEMSAV; .WORD 


BUFAB 


.WORD 


BUFAE 


.WORD 


BUFFL 


.WORD 


BUFBB 


.WORD 


BUFBE 


.WORD 


CNTl: 


,W0RD 


CNT2: 


.WORD 


CHAR: 


.WORD 


DONE: 


.WORD 


NEXFLG: .WORD 


BCINP 


• .WORD 


INTFLG: .WORD 


TSTREP: .WORD 


ASAVE 


.WORD 


BSAVE 


. »WORD 



IOR HIGH-BYTE ADDRESS DEFAULT VALUE 

VSR 

CSR 

BCR 

BAR 

MCR 

MCR HIGH-BYTE ADDRESS DEFAULT VALUE 

DEFAULT OF IEC11-A VECTOR ADDRESS 

DEFAULT OF IECll-B VECTOR ADDRESS 

IEC11-A BUS ADDRESS DEFAULT VALUE 

IECll-B BUS ADDRESS DEFAULT VALUE 

TALKER INDICATION 

LISTENER INDICATION 



MEMORY AREA FOR BUFFERS 
FIRST ADDRESS IN BUFFER A 
LAST ADDRESS IN BUFFER A 
LENGTH OF BUFFERS IN BYTES 
FIRST ADDRESS IN BUFFER 8 
LAST ADDRESS IN BUFFER B 



DELAY OR COUNTER 
DELAY OR COUNTER 
CHARACTER FOR MCR 

NEX -PROCEDURE CTEST3) TIMEOUT FLAG 
REQUESTED BYTE COUNT FOR DMA 
INTERRUPT FLAG 
FLAG FOR LOOP ON SINGLE TESTS 



G10 



IECll B TEST 
MESSAGES 



MACRO M1200 30-MAR-84 16:11 PAGE 44 



SEQ 123 



157,? 
1373 
1374 
13 75 

1376 
1377 
1378 
1379 

1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 



027032 
02 7066 
027120 
027130 
027156 
02 7226 
02 7300 
027325 
027365 
027407 
027457 
02 7504 
027544 
027566 
027627 
027650 
027726 
027767 
030010 
03004 7 
030123 
030205 
030267 
030353 
030406 
030441 
030474 
030527 
030575 
030622 
030712 
030757 
031034 
031061 



133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 



111 

127 
103 
103 
115 
133 
050 
105 
050 
105 
050 
105 
050 
105 
050 
126 
105 
050 
133 
133 
133 
133 
133 
133 
133 
133 
133 
133 
102 
133 
133 
133 
133 
133 



105 
111 
132 
123 
117 
133 
104 
116 
104 
116 
104 
116 
104 
116 
104 
105 
116 
104 
124 
124 
124 
124 
124 
102 
102 
102 
102 
105 
131 
124 
124 
111 
116 
105 



MID: 

MES1 

MES2 

MES3 

MES4 

MES5 

MES6 
MES7 

MES8 

MES9 

MES10 

MESH 

MES12 

MES13 

MES14 

MES15 

MES16 

MES17 

MES18 

MES19 

MES20 

MES21 

MESNEX 

MESEND 



.SBTTL 

.NLIST 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCIT 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.EVEN 

.LIST 



MESSAGES 

BEX 

/[IEC11-B TEST IN CONNECTION/ 

/[WITH AN IECU-A INTERFACE/ 

/[CZIECAO/ 

/[CSS MUNICH MARCH 1979/ 

/[MODIFIED FOR SDC SUBMISSION MARCH 1984]/ 

/[[[ENTER FIRST REGISTER ADDRESS OF IECU-A/ 

/[(DEFAULT IS 160010)]/ 

/TENTER VECTOR ADDRESS OF IECU-A/ 

/[(DEFAULT IS 270)1/ 

/[ENTER FIRST REGISTER ADDRESS OF IECll -B/ 

/[(DEFAULT IS 160020)]/ 

/[ENTER VECTOR ADDRESS OF IECll -8/ 

/[(DEFAULT IS 274)]/ 

/[ENTER IEC-BUS ADDRESS OF IECll A/ 

/[(DEFAULT IS 35)]/ 

/[VECTOR INPUT IS NOT EQUAL TO CONTtNTS OF VSR]/ 

/[ENTER IEC-BUS ADDRESS OF IECll -B/ 

/[(DEFAULT IS 36)]/ 

REGISTER STATIC TEST]/ 
TALKER AND LISTENER FUNCTION TEST]/ 
GENERAL INTERRUPT AND DMA FUNCTION TEST]/ 
DMA- TRANSFER FROM B TO A (B IS 
FROM A TO B (B IS 



1: 
2: 
3: 
4: 
5: 



DMA 



/([TEST 

/([TEST 

/[(TEST 

/[(TEST 

/[[TEST 

/[[BUS REQUEST 

/[[BUS REQUEST 

/[(BUS REQUEST 

/[[BUS REQUEST 

/[[ENTER BYTE COUNT 

/[BYTE COUNT NUMBER 



TRANSFER 
LEVEL IS 7 
LEVEL IS 6 
LEVEL IS 5 
LEVEL IS 4 
NUMBER 
]/ 



3/ 

]/ 
]/ 
]/ 



TALKER)]/ 
LISTENER)]/ 



(MAXIMAL)]/ 



/[[TEST 6: MATCH CHARACTER REGISTER TEST (B IS LISTENER)]/ 
/([TEST 7; SERIAL POLL PROCEDURE TEST]/ 
/[[ILLEGAL STATUS BYTE ON IEC BUS ADDRESS ; ]/ 
/[[NEXT TEST TO RUN ?]/ 
/[(END OF TEST]/ 

BEX 



Mb^VhH REG» *» S0MflR84 16!U PAGE45 



H10 



SEQ 124 



14U 






1412 






1415 






1414 






1415 






1416 






1417 






1418 






1419 






1420 






1421 






1422 






1425 






1424 






1425 






1426 






1427 






1428 






1429 






1430 






1431 






1432 






1433 






1434 






143b 






1436 






14 3 7 






1438 






1439 


031100 




1440 


031110 


017601 000012 


1441 


031114 


016602 000014 


1442 


031120 


104000 


1443 


031122 


010211 


1444 


031124 


oiuoo 


1445 


031126 


005102 


1446 


031130 


040200 


144 7 


031132 


005102 


1448 


031134 


020200 


1449 


031136 


001432 


1450 


031140 




1451 


031146 


001010 


1452 


031150 




1453 


031160 




1454 


03U70 




1455 


031216 




1456 


031222 


000 736 


1457 


031224 


104000 


1458 


031226 


040211 


1459 


031230 


011100 


1460 


031232 


005102 


1461 


031234 


040200 


1462 


031236 


005102 


1463 


031240 


005 700 


1464 


031242 


0014 33 


1465 


031244 




5.466 


031252 


001010 


1467 


031254 





,SBTTL 



STANDARD CSS REGISTER TEST 

GR001 31 -MAR -76 



REGTST 



1* 



5$ 



2$ 



PUSH 

MOV 

MOV 

SCOPE 

MOV 

MOV 

COM 

BIC 

COM 

CMP 

BEQ 

TST14 

BNE 

WRITE 

DUMP 

AOP 

ERROR 

BR 

SCOPE 

BIC 

MOV 

COM 

BIC 
COM 
T5T 
BEQ 
TST14 

HNt 
WRITE 



ROUTINE DESCRIPTION: 

INPUT: REGISTER, BITMASK 
OUTPUT: ONLY IF ERRORS OCCUR: 

BIT MASK OF R AND W BITS IN REGISTER NR: XXXXXX 

CONTENTS SHOULD BE : BUT WAS 

ERROR 000255,000254 OR 000253 
FUNCTION: BEFORE THIS ROUTINE CALL AT FIRST MUST BE 
PUSHED THE BITMASK AND THEN THE REGISTER 
ONTO THE STACK. 

THE ROUTINE CHECKS ALL READ/WRITE BITS OF 
THE CORRESPONDING REGISTER AND PRINTS ERROR 
MESSAGES IF THE READ AND WRITE WAS NOT IOENT. 



EXAMPLE: PUSH 
CALL 



R0.R1.R2.R3 

S)12(SP),R1 

14(SP).R2 

R2.3R1 
SR1.R0 
R2 

R2.R0 

R2 

R2.R0 

2$ 

PSDSWR 

5$ 

RG$MS* 

ocr.Ri 

R2.R0 
255. 

H 

R2.SR1 

ctfU.RO 

R2 

R2.R0 

R2 

RO 

3$ 

PSDSWR 

M 

RG*MS* 



0126, 0CSR 
REGTST 



GR001 
GET ADDRESS OF REGISTERjGROOl 
GET BITMASK ;GR001 
PREPARE SCOPE LOOP 
TRY TO SET ALL BITS 
TRY TO READ IT BACK 
BUIL D MASK COMPLEMENT 
CLEAR UNUSED BITS 
REBUILD MASK 
ALL BITS SET ? 
BRANCH IF YES 

IF AOP AFTER ERROR IS NOT ALLOWED, 
GOTO 5$ .ELSE WRITE 
WRITE AT REGISTER NR : 
DMP REGISTER NUMBER 

NOT ALL BITS SET 

RESTART TEST 

SAVE SCOPE LOOP ADRESS 

CLEAR BITS UNDER MASK 

READ BITS 

BUILD MASK COMPLEMENT 

MASK OUT UNUSED BITS 

REBUILD MASK 

ARE ALL BITS RESET 

BRANCH IF YES 

IF ADP IS NOT ALLOWED 

I'.OTO 6 J 

AT REGISTER 



110 



IEC11 -6 TEST 

STANDARD CSS 



MAQRQ Ml 200 



REGISTE 



30 -MAR -84 lb j 11 PAGE 45-1 



SEQ 125 



1468 

1469 

14 70 

1471 

14 72 

1473 

1474 

14 75 

1476 

1477 

1478 

14 79 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1515 

1514 



031264 

031274 
031324 
031330 
031332 
031334 
031340 
031342 
031344 
031346 
031350 
031352 
031354 
031356 
031364 
031366 
031376 
031406 
031434 
031440 
031442 
031444 
031466 
031476 
031502 



031506 
031512 
031516 
031520 
031522 
031524 
031526 
031530 
031532 
031536 
031542 
031544 
031546 

031550 



031624 



000673 
005102 
004737 
040200 
104000 
010011 
011103 
040203 
020300 
001432 

001023 



00062 7 
005102 



062706 
000176 



013746 
013700 
006316 
005500 
006200 
005516 
061600 
005600 
012637 
010037 
000207 
135753 
024624 

133 



001204 



6$ 
3$ 



031506 



7$ 
4$ 



000006 
177772 



031544 
031546 



RANDOM* 



031544 
031546 



lOi 



RA: 
RB: 

111 RG5MSJ 



PRGENDi 



DUMP 

ADP 

ERROR 

BR 

COM 

CALL 

BIC 

SCOPE 

MOV 

MOV 

BIC 

CMP 

BEQ 

TST14 

BNE 

WRITE 

DUMP 

ADP 

ERROR 

BR 

COM 

$$LOOP 

POP 

ADD 

JMP 



0CT.R1 

$0, RO 

254. 

1$ 

R2 

RANDOM 

R2.R0 

R0.CR1) 
SR1.R3 

R2.R3 

R3.R0 

4i 

PSDSWR 

7% 

RG$MS* 

0CT.R1 

R0.R3 

253. 

li 

R2 

1000,1$ 

R3.R2.R1.R0 

06. SP 

3-6CSP) 



i DMP REGISTER NR 



NOT ALL 
RESTART 



BITS RESET 
TEST 



BUILD COMPLEMENT OF MASK 

GET A RANDOM <t 

MASK OUT UNUSED BITS 

SAVE SCOPE LOOP ADDRESS 

TRY TO SET RANDOM BITS 

READ IT BACK ? GR001 

CLE/\R UNUSED BITS j GR001 

ALL BITS OK ? j GR001 

BRANCH IF YES 

IF ADP IS NOT ALLOWED 

GOTO 7$ 

ELSE WRITE REGISTER NR 

DUMP REGISTER NUMBER 

SHOULD BE RO.WAS R3 

DATA CHECK IN REGISTER 

RESTART TEST 

REBUILD MASK 

GR001 
REBUILD STACK 
RETURN TO CALLER 



RANDOM NUMBER GENERATOR USED FOR REGTST 



MOV 

MOV 

ASL 

ADC 

ASR 

ADC 

ADO 

SBC 

MOV 

MOV 

RETURN 

135753 

024624 

.NLIST 

.ASCII 

.LIST 

.EVEN 

♦ END 



RA. -(SP*) 

RB.RO 
3SP 

RO 
RO 

asp 
asp.RO 

RO 
<$P)*.RA 

RO.RB 



BEX 

/[BIT 

BF.X 



START 



MASK OF R AND W BITS IN REGISTER NR : ]/ 



J10 



iecu b iest 

s1mbol tablf. 



MACRO Ml 



ACC4 
ADDRIN 
ASAVE 
BAR 
BCINP 
BCIN4 
BCIN5 
BCOVFl 
BCR 

BOOR IN 
BEG6 
BITvO - 
BIT1 > 
BTT10 * 
DIT11 ■ 
BIT12 = 
BIT13 * 
BIT14 » 
BIT15 * 
BIT,? = 
BIT3 * 
i;IT4 » 

nrT5 = 

BrT6 •- 
B117 > 

Bira •■ 

BIT9 = 

BSAVE 

BUFAB 

BUFAE 

BUFBB 

BUFBE 

BUFTL. 

BUf'PRP 

COM. .E 

CHAR 

CIR 

CMOOE : 

CMP4 

CMP5 

CMP6 

CNT1 

CNT2 

CSR 

DEFA 

DEKB 

DMA4 

DMA6 

DMP . . E 

DONE 

DONO 

DON1 

DON? 

DON3 

D0N4 

U0N5 

DUMMEb 



020040 

011316 

027036 

026750 

027020 

017376 

020470 

016216 

026746 

011724 

021576 

000001 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

0270.-S0 

026774 

026776 

027002 

02 7004 

027000 

010614 

010614 

027012 

026732 

140000 

020276 

021204 

022010 

02 7006 

027010 

026744 

011374 

012002 

020050 

021676 

0066 74 

027014 

022610 

023334 

024204 

025062 

025/74 

026606 

007210 



200 30 


-MAR -84 


D. .TYP 


006420 


EMTTBL 


002416 


EMTTND 


002424 


EMTO 


002424 


EMT1 


002432 


EMT2 


0024 70 


ENOBIT 


016410 


ERRKLG 


007154 


IAD..E 


004302 


IAE..E 


005016 


IAS. .E 


004466 


IAY..E 


004116 


IECAAD 


026762 


IECBAD 


026764 


INFLAG 


007150 


INPREQ 


007156 


INP..E 


003776 


INTA 


026702 


INTB4 


020100 


INTFLG 


027022 


INTSRV 


026644 


INTTST 


026634 


IOR 


026736 


I0RH6 


026740 


I..DMP- 


OOOOOl 


KBBEND 


007146 


KBBPNT 


007146 


KBBUFF 


007026 


KOSARO- 


172360 


KDSDRO- 


172320 


KISARO- 


172340 


KISAR5- 


172352 


KISAR6* 


172354 


KISAR7- 


172356 


KISDRO- 


172300 


KISDR6- 


172314 


KISDR7- 


172316 


LAB1 


013340 


LAB11 


012042 


LAB2 


013416 


LAB 3 


013474 


LAB4 


013612 


LA85 


013760 


LAB6 


014036 


LAB7 


014114 


LAB8 


014176 


LAB9 


014326 


LAST4 


020106 


LIINO 


026770 


MAPER 


010472 


MCR 


026752 


MCRHB 


026754 


MEMDEF 


010426 


MEMEND 


007022 


MEMSAV 


0267/2 


MERCOV 


00/737 


MERHLT 


010002 



16; 11 PAGE 45 



MERROR 

MERRP2 

MER1 

MER2 

MESENO 

MESNEX 

MES1 

MES10 

MESH 

MES12 

MES13 

MES14 

MES15 

MES16 

MES17 

MES18 

lies 19 

MES2 

HES20 

ME 521 

MES3 

MES4 

MES5 

MES6 

MES/ 

MES8 

MES9 

MID 

MILADR 

MILBIN 

MILDEC 

MlLfcMT 

MILOCT 

MILSCP 

MILTR1 

MILTR2 

MKBOVF 

MNOSUB 

MPWRFL 

MSYERR 

MVERSN 

M. .DET 

M. .HIM 

M . . MMM 



SEQ 126 



RET 

SAV 
TRP 
TSE 
TST 



M. 

M. 

M. 

M. 

M. 

N 

NEXBIT 

NEXFLG 

NEXMEM 

NEX1 

NEX2 

NEX3 

NEX4 



007652 

007662 

010304 

010333 

031061 

031034 

027226 

030123 

030205 

030267 

030353 

030406 

030441 

030474 

030527 

030575 

030622 

027325 

030712 

030757 

027407 

027504 

027566 

027650 

027726 

030010 

03004 7 

027032 

007445 

007360 

007316 

007421 

007256 

007524 

010104 

010144 

007213 

010032 

007 704 

007503 

010156 

001662 

001766 

002006 

001726 

001424 

0017 76 

001374 

001516 

000005 

014712 

027016 

026 722 

015214 

015424 

015626 

016022 



NOR.ER 


004376 


N0R..E 


004572 


N06 


010612 


OFFCNT 


012240 


OFF SET 


012112 


OUTFLG 


007152 


PEND1 


023262 


PEND2 


024150 


PEND3 


025026 


PEND4 


025740 


PEND5 


026552 


PMODE - 


030000 


POLLO 


022340 


P0LL1 


022736 


P0LL2 


023602 


P0LL3 


024460 


P0LL4 


025372 


P0LL5 


026262 


PR 


016622 


PRERR 


017324 


PRGEND 


031624 


PRIEX 


017330 


PRIOR 


026650 


PRI4 


017310 


PRI5 


017236 


PR1'6 


01/164 


PRI7 


017112 


PROMES 


007202 


PR1 


017050 


PR2 


017126 


PR3 


017200 


PR4 


017252 


PS 


177776 


PSDSWR 


007160 


PO 


022412 


PI 


023016 


P2 


023704 


P3 


024562 


P4 


0254 74 


P5 


026306 


RA 


031544 


RANDOM 


031506 


RB 


031546 


RED. .E 


005626 


REGTST 


031100 


REP1 


012252 


REP2 


013106 


REP3 


014372 


REP4 


017450 


REP5 


020542 


RFP6 


021564 


REP7 


022260 


RGAIN 


010752 


RGB.IN 


011402 


RGU1S* 


031550 


RUBFl.G 


00/162 


R..TYP= 


' OOOOOl 



SAV 


011312 


SCOPAD 


007172 


SCOPE - 


104000 


SEQ 


012160 


SEQPNT 


012156 


SINGLE 


012114 


SISDRO» 


172200 


SMR 


026734 


SPBTOA 


026150 


SPEFLG 


007170 


SPEND 


024356 


SPNEX 


025234 


SPOVFL 


023506 


SRO 


177572 


SR3 


172516 


START 


001204 


STATUS 


007164 


STCHGE 


014564 


TAIND 


026766 


fESTAL 


012144 


TE5T1 


012242 


TEST2 


013074 


TEST3 


014352 


TEST4 


017350 


TEST5 


020442 


TEST6 


021350 


TEST7 


022206 


TKB 


177562 


TKS 


177560 


TPB 


177566 


TPS 


177564 


TSTREP 


027024 


TT 


012220 


TIE 


012242 


TYP. .E 


001252 


UBMPR - 


170200 


UDSARO- 


177660 


UDSDRO- 


177620 


UISARO- 


177640 


UISAR4- 


17 7650 


UISAR5- 


17/652 


UISAR6- 


1/7654 


UISAR7- 


17 7656 


UISDRO- 


177600 


UISDR4* 


177610 


UISDR5* 


177612 


UISDR6- 


177614 


UISDR7- 


177616 


U, .DET 


001760 


VECA 


026 75b 


VECAIN 


011216 


VECB 


026760 


VECBIN 


011646 


VSR 


026/42 


WRT. ,E 


006060 


X 


000340 


XX 


000004 



1/ 't /\ 



K10 



IEC11B 


TEST 


MACRO M1200 30 


-MAR -84 


SYMBOL 


TABLE 










z$*z « 


000004 




$ 


$ASE 


007174 


z$$$z * 


000000 




$ 


.ADP 


006706 


$MNOAV 


010351 




$ 


.ASC 


005464 


AROINT 
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